1

我需要比较 B 列和 C 列。它们仅由实数组成,按升序排序。

我已经有了我想要它做的代码,但我需要帮助更改代码中的范围。

所以目前的代码比较 B 列和 C 列。

查看此图像以获得更清晰的解释。

我需要帮助更改代码,以便我可以在 A 的左侧和 D 的右侧添加一列,并将它们添加到移位范围。

基本上,比较 ​​E 和 F 和 shiftB:EF: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
4

1 回答 1

5

您不需要宏来执行您想要执行的操作(除非您出于某些奇怪的原因尝试自动执行此操作。

您可以复制并粘贴 D 和 C 列,使其位于其他数据下方(见图),然后添加第 5 列,即 B 和 C 列的最大值(这将获取数字):

之前回答

然后你只需要对 max 列进行排序:

之后回答

编辑:

好的,这是非常基本的 excel,所以我将发布带有一些小方向的屏幕截图。基本上你想要做的(我不知道你是否意识到这一点)是组合两个表(当然它是以一种非常奇怪的方式)。因此,如果您按照我的原始说明进行操作,除了创造性地使用 vlookup 之外,您绝对可以完成您正在尝试做的事情。以下是截图:

所以创造性地使用 vlookup: 原来的

您可以对需要匹配的数据进行匹配: Vlookup1

这是另一个 vlookup 列: Vlookup2

然后,一旦您的数据匹配 - 您可以通过复制和粘贴将其全部转换为值: 复制粘贴值

然后你添加你的最大列: 最大列

然后你只需排序,你应该得到你想要的: 你想要什么

然后,您可以删除不再需要的任何额外数据: 删除任何你不想要的东西

所以希望这可以帮助你。您想要使用 VBA 的唯一原因是如果您想要自动化此过程 - 但如果这是一次性的事情,那么这将过于耗时。Excel 旨在处理数据 - 匹配表格 - 诸如此类的东西 - 将其用于此目的。

于 2012-08-03T18:37:18.180 回答