宏捕获所选范围并填充值

Question

我正在尝试使用宏来实现以下功能。当我选择一个范围内的几个单元格然后单击一个按钮时，所选单元格应该将一些值填充为“Y”，如下所示。

Sub SELECTCELL()
mystring = Selection.Address(Row, Column)

我找到了这段代码，但不知道如何使用这个

    MsgBox mystring
    firstcell = Left(mystring, 2)
    MsgBox firstcell
    lastcell = Right(mystring, 2)
    MsgBox lastcell
End Sub

Answer 1

对于您提供的示例，我会执行以下操作：

For Each Cell In Application.Selection
    ActiveSheet.Cells(Cell.Row, Cell.Column + 6).Value = "Y"
Next

将数字6更改为您需要的任何偏移量。