Question

我有3张表格：Sheet1，Sheet2，...

Sheet1包含所有数据，它有R3到R17列，这就是我想要的。

Sheet2有三列，静态列---这将有一个公式（=+Sheet1!R3 etc till R17）Col1 ---（与静态列相同）将显示R3-R17的值（但后来只有值才会保留在这一列而不是公式中）Col2 ---这将是我想要值的下一列。

在Sheet2上，我想要的是每当我按下Macro的快捷方式时..

它应该从该静态列复制公式，将其粘贴到Col1中，这样Col1就可以从Sheet1，R3-R17列中获取条目......

然后当我再次按下快捷按钮时，

现在应该从静态列复制公式，看看Col1是否已填充，如果填充，则将其放在Col2上，这样Col2现在可以从Sheet1 (R3-R17)获取条目，并且只保留Col1中的REAL值。 p>

然后当我再次按下快捷按钮时，

现在应该从静态列复制公式，看看Col1，Col2是否已填充，如果已填充，请将其放在Col3上，以便Col3可以从Sheet1 (R3-R17)获取条目，并且只保留Col2中的REAL值。 / p>

我差不多完成了一半，但是无法将宏切换到下一列..

Sub PlayerSheet()
    Dim LC As Long, r As Range
    Set r = Application.InputBox("click in the column to copy", Type:=8)
    LC = r.Column
    Columns(LC + 1).Insert
    Columns(LC).Copy
    Cells(1, LC + 1).PasteSpecial Paste:=xlPasteFormulas
    Columns(LC).Copy
    Cells(1, LC).PasteSpecial Paste:=xlPasteValues
  End Sub

VBA代码：如果已填写，则跳过列条目

0 个答案: