如何使用 VBA 使列范围动态化？

如何解决如何使用 VBA 使列范围动态化？

我正在使用 followig 代码将小数转换为 %。 B 列中的数据点数量每天都在变化。如何使范围动态化以便代码正常工作？

For Each c In [B2:B47]
    If c.Value < 1 Then
        c.Value = c.Value * 100
    End If
    c.NumberFormat = "0.00\%"
Next c

谢谢。

解决方法

我总是使用 while 循环来完成这项任务。循环直到到达一个空白单元格（即数据的结尾）

Sub ranges()

Dim c As Range
Dim n As Integer
n = 2

While Sheets("sheetname").Cells(n,2) <> ""
    
    Set c = Sheets("sheetname").Cells(n,2)
    
    If c.Value < 1 Then
        c.Value = c.Value * 100
    End If
        c.NumberFormat = "0.00\%"
n = n + 1
Wend

End Sub

,

一种方法是确定范围的第一行和最后一行。

通常，第一行是已知的并且是硬编码的；从底部开始向上移动可以找到最后一行。

例如

    'should always declare your variables
    Dim r As Range,c As Range
    
    'should always fully qualify the reference
    With ThisWorkbook.Worksheets("sheet4")
        Set r = Range(.Cells(2,2),.Cells(.Rows.Count,2).End(xlUp))
    End With
    
        For Each c In r
            'do your thing
        Next c