Question

我在网上发现这个代码可以帮助我在列中的值之前和之后打印asterix。这个的问题是，如果我在列a等中选择了4行，它会打印4个星号。我不能硬编码范围因为它不时不同。有时我在列a中有2行有值，有时我有5或7等等。

您对我如何解决此问题或任何帮助有任何提示吗？我无法弄清楚如何声明我的范围，例如，它一次检查一个单元格而不是一系列单元格。

Sub Add_Asterisk()

Dim r As Range
 With Selection

    For Each r In Selection
        r.Value = "*" & r.Value & "*"
    Next
 End With


 End Sub

提前感谢你 / d

Answer 1

您可以声明一个变量来保存包含所需列中数据的最后一行，然后遍历设置范围内的所有单元格。

Sub Add_Asterisk()
Dim LastRow As Long
Dim Rng As Range, Cell As Range

'Finding the last row with data in column A
LastRow = Cells(Rows.Count, "A").End(xlUp).Row

'Setting the range in column A
Set Rng = Range("A2:A" & LastRow)

For Each Cell In Rng
    Cell.Value = "*" & Cell.Value & "*"
Next Cell
End Sub

在单元格中的值之前和之后添加asterix。

1 个答案: