VBA宏，用于获取A列中的行范围，并将其替换为B列中的值

Question

我有一个包含A列和B列值的表。我想运行一个宏，弹出一个界面，提示我输入行的范围，然后在B列中获取值，并替换A列中的值给定范围。

Answer 1

回答你的问题

Sub Test()

Dim RangeX As Variant

RangeX = InputBox(" Enter Range of rows. For Example rows 3  & 4 Means 3-4")


Row1 = Left(Trim(RangeX), 1)
Row2 = Right(Trim(RangeX), 1)

For i = Row1 To Row2

Cells(i, 1).Value = Cells(i, 2).Value
Cells(i, 3).Value = "Values Replaced"
Next

MsgBox "Process Completed"

End Sub