Question

我正在尝试编写将多个csv文件中的数据复制到主表中的代码。

我代码中的所有内容都正确无误，但其中一些数据偏移了大约一千行。我需要进入B列的代码来扫描单元格的值，直到它到达值大于1的第一个单元格为止；或者查看从数据的第一个大跃迁开始的图形，然后从大于1的值复制数据，直到该列的末尾。我想不出一种方法来选择B列中第一个大于1的单元格

ActiveSheet.Range("B1", ActiveSheet.Range("B1").End(xlDown)).Copy

这是我拥有的原始代码，但我希望它从大于1的某个单元格值开始而不是“ B1”

Answer 1

别认为您可以避免循环。如果您在B列中的所选单元格后面只有一个值，或者中间有空格，则最好使用End(xlup)。

Sub x()

Dim r As Long

Do
    r = r + 1
Loop Until Cells(r, 2).Value > 1

MsgBox "Row " & r

Range(Cells(r, "B"), Cells(r, "B").End(xlDown)).Copy
'ETC

End Sub

从单元的特定值开始复制数据的代码

1 个答案: