vba循环遍历范围内的行返回列值
vba循环遍历范围内的行返回列值
提问于 2017-02-15 09:12:08
智慧在这里结束。循环遍历range中的行时，只是尝试返回特定列(4)的值。这是我到目前为止所掌握的。
With sht
'Iterate over rows in used range
For Each loopRow In workRange.Rows:
myVariable = .Cells(loopRow, 4).Value
MsgBox myVariable
Next loopRow
End With回答 1
Stack Overflow用户
发布于 2017-02-15 09:27:24
不清楚您到底要做什么，但下面是我通常更喜欢使用VBA使用行和列偏移计数器变量遍历Excel中的行和列的方式。此示例将列D中的单元格打印到“即时”窗口。
考虑到这一点：
此代码标识感兴趣的值：
Public Sub GetCol4()
Dim Rng As Excel.Range, rowOffset As Long
Set Rng = ThisWorkbook.Worksheets("Sheet1").Range("A1")
Do Until IsEmpty(Rng.Offset(rowOffset, 0).Value)
Debug.Print Rng.Offset(rowOffset, 3).Value
rowOffset = rowOffset + 1
Loop
End Sub...and会导致此结果留在即时窗口中：
页面原文内容由Stack Overflow提供。腾讯云小微IT领域专用引擎提供翻译支持
原文链接：
https://stackoverflow.com/questions/42239111
复制相关文章
相似问题
腾讯云开发者
