我需要比较 B 列和 C 列。它们仅由实数组成,按升序排序。
我已经有了我想要它做的代码,但我需要帮助更改代码中的范围。
所以目前的代码比较 B 列和 C 列。
我需要帮助更改代码,以便我可以在 A 的左侧和 D 的右侧添加一列,并将它们添加到移位范围。
基本上,比较 E 和 F 并移位 B:E
和 F:I
.
Option Explicit
Sub AlignList()
' hiker95, 08/02/2012
' http://www.mrexcel.com/forum/showthread.php?651139-Compare-Column-B-amp-C-and-Shift
Dim r As Long, lr As Long, d As Range
Application.ScreenUpdating = False
lr = Cells.Find("*", , xlValues, xlWhole, xlByRows, xlPrevious, False).Row
Set d = Range("A1:B" & lr)
r = 1
Do While d.Cells(r, 2) <> ""
If d.Cells(r, 2).Offset(, 1) <> "" Then
If d.Cells(r, 2) < d.Cells(r, 2).Offset(, 1) Then
d.Cells(r, 2).Offset(, 1).Resize(, 2).Insert -4121
ElseIf d.Cells(r, 2) > d.Cells(r, 2).Offset(, 1) Then
d.Cells(r, 1).Resize(, 2).Insert -4121
lr = lr + 1
Set d = Range("A1:B" & lr)
End If
End If
r = r + 1
Loop
Application.ScreenUpdating = 1
End Sub
最佳答案
您不需要宏来执行您想要执行的操作(除非您出于某些奇怪的原因尝试自动执行此操作。
您可以复制并粘贴 D 和 C 列,使其位于其他数据下方(见图),然后添加第 5 列,即 B 和 C 列的最大值(这将获取数字):
然后你只需要对 max 列进行排序:
编辑:
好的,这是非常基本的 excel,所以我将发布带有一些小方向的屏幕截图。基本上你想要做的(我不知道你是否意识到这一点)是组合两个表(当然它是以一种非常奇怪的方式)。因此,如果您按照我的原始说明进行操作,除了创造性地使用 vlookup 之外,您绝对可以完成您正在尝试做的事情。以下是截图:
所以创造性地使用 vlookup:
您可以对需要匹配的数据进行匹配:
这是另一个 vlookup 列:
然后,一旦您的数据匹配 - 您可以通过复制和粘贴将其全部转换为值:
然后你添加你的最大列:
然后你只需排序,你应该得到你想要的:
然后,您可以删除不再需要的任何额外数据:
所以希望这可以帮助你。您想要使用 VBA 的唯一原因是如果您想要自动化此过程 - 但如果这是一次性的事情,那么这将过于耗时。 Excel 旨在处理数据 - 匹配表格 - 诸如此类的东西 - 将其用于此目的。
关于vba - 比较 B 列和 C 列,然后移动数据,我们在Stack Overflow上找到一个类似的问题: https://stackoverflow.com/questions/11797743/