我有一个宏，它只是更改所选行中单元格的值。
Cells(Application.ActiveCell.Row, 20).Select
ActiveCell.Value = "withdraw"
但是，我希望能够选择一定数量的行（不一定是连续的），例如从下面的示例中选择A1，A3和A4，并为每个选择单元格设置宏更改列B，
A B
1 Brian
2 James
3 Jenny
4 Frank
5 Tim
成为
A B
1 Brian Withdraw
2 James
3 Jenny Withdraw
4 Frank Withdraw
5 Tim
我将如何从选定的范围中获取活动的行并为每行循环宏？
这是一个可能的解决方案：
Private Sub a()
Dim sSel As String
Dim aSel As Variant
Dim rX As Range
Dim i As Integer
Dim j As Integer
sSel = Selection.Address
aSel = Split(sSel, ",")
For i = 0 To UBound(aSel)
Set rX = Application.ActiveCell.Parent.Range(CStr(aSel(i)))
For j = 1 To rX.Rows.Count
rX.Rows(j).EntireRow.Cells(1, 2) = "withdraw"
Next
Next
End Sub
请注意，这不允许您在任何行中的任意位置选择任意数量的单元格。
本文收集自互联网，转载请注明来源。
如有侵权，请联系 [email protected] 删除。
我来说两句