excel - 将一个excel表中的行数与另一个表中的行数匹配

Question

在 Excel 中，我使用一些列进行计算，这些列将使用来自其他一些列的信息，这些列的信息是从另一个文件中复制的。但是，此外部数据可以具有不同数量的行，因此我试图找出一些 vba 代码，这些代码将下拉计算或将它们拉起以扩展或压缩行以匹配导入的数据。

例如，A 是从其他地方引入的列，B 是计算列。

A   B
1   A2*2
2   A3*2
3   A4*2
4   A5*2

现在假设我复制了一个有八行的列。我想拉下 B 列，使其也有八行。任何形式的指导将不胜感激。

Answer 1

听起来您可以使用自动填充手动执行此操作，但如果您希望使用类似这样的宏可以让您开始：

Sub Macro1()

    ' put your function here
    Range("B1").FormulaR1C1 = "=RC[-1]*2"

    Dim dest As Integer
    dest = Range("A1").End(xlDown).Row

    Range("B1").AutoFill Destination:=Range("B1:B" & dest), Type:= _
        xlFillDefault

End Sub

这将自动填充 B 列中的函数，以使 A 列中包含尽可能多的数据。现在您声明您需要“扩展或压缩行以匹配导入的数据”。您可以通过清除宏开头的 B 列来执行此操作。

希望这会有所帮助，如果这令人困惑或对您的问题没有帮助，请告诉我。