[已解决]请问：如何根据C单元格的数据，确定宏的行号？

无为123456

请问：如何更改宏，使宏根据C4单元格的数据，确定复制位置中的行号（如16）？

Sub 数据复制()
'

    Range("D4:O4").Select
    Selection.Copy
    Range("D16").Select
    Selection.PasteSpecial Paste:=xlPasteValuesAndNumberFormats, Operation:= _
        xlNone, SkipBlanks:=False, Transpose:=False
End Sub


谢谢

最佳答案

月排行榜 / 总排行榜

橘子红

2015-12-30 22:30

Sub 数据复制()
'

    Range("D4:O4").Select
    Selection.Copy
    Range("D"&[c4]).Select
    Selection.PasteSpecial Paste:=xlPasteValuesAndNumberFormats, Operation:= _
        xlNone, SkipBlanks:=False, Transpose:=False
End Sub

跳转到最佳答案楼层

橘子红

Sub 数据复制()
'

    Range("D4:O4").Select
    Selection.Copy
    Range("D"&[c4]).Select
    Selection.PasteSpecial Paste:=xlPasteValuesAndNumberFormats, Operation:= _
        xlNone, SkipBlanks:=False, Transpose:=False
End Sub

无为123456

谢谢版主，已解决。