使用宏将单元格值在两列中获取到两个变量

Question

我有两列＆＃34; G＆＃34;和＆＃34; H＆＃34;在同一张纸上。我希望将这两列上的单元格值分配为两个变量。我写了一个宏如下

For i = 1 To 40
rtext1 = Cells(i, "G").Value
text1 = Cells(i, "H").Value
Next i

但我没有得到相关变量的正确单元格值。做这个的最好方式是什么？

Answer 1

我测试了你的代码。它运作良好。我认为，当您运行代码时，ActiveSheet不是您想要的工作表。所以，你没有得到正确的价值。试试这个：

For i= 1 To 40 Step 1

    rtext1 = Sheets("sheetname").Cells(i, "G").Value

    text1 = Sheets("sheetname").Cells(i, "H").Value

Next i