Excel宏行变量

Question

我正在尝试制作一个excel宏。我如何使行变量？它必须增加为A6，A7，A8 ...... 我知道使colums变量但不能为行做。 以下是代码中的几行。

For profnum = 1 To 100
    Range("A6").Select.Offset(1 + (profnum - 1) * 1, 0).Select

我有超过100个图形配置文件。每个配置文件都有x和y值。我将124（x和y值的数量）改为504，如下所示。但重复200次或500次是非常困难的，需要很长时间。我怎么能通过宏来制作呢？

=SERİLER("file44.txt";main_excel!$ED$4:$ED$504;main_excel!$EE$4:$EE$504;45)

Answer 1

您正在使用Offset方法返回一个范围对象，该对象隐式地是一列宽，但您按行进行迭代。这是Offset方法中的第一个参数：

object.Offset(row_offset, column_offset)

因此，只需通过交换参数的位置对代码进行小修改：

Range("A6").Offset(0, 1 + (profnum - 1) * 1).Select

要保持行不变，但列不同，以下循环将选择A6，然后选择B6，然后选择C6，然后选择D6等。

For i = 1 to 100
    Range("A6").Offset(0, profnum).Select
Next

为了保持列不变，但行变化，以下循环将选择A6，A7，A8等：

For i = 1 to 100
    Range("A6").Offset(profnum, 0).Select
Next

Answer 2

变量行？

你的意思是动态吗？

Dim LstRw As Long
LstRw = Cells.Find(What:="*", After:=[A1], SearchOrder:=xlByRows, SearchDirection:=xlPrevious).Row