自己录制一个宏,然后改改就可以了埃 Sub Pspec() For i = 1 To 10 Sheets(i).Activate Cells.Select Selection.Copy Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=False Application.Cu...
第2个回答 2015-11-12
将Sheet1中A1单元格的当前区域的值 粘贴到 sheet2的代码
Sub test() Sheet1.Range("A1").CurrentRegion.Copy Sheet2.Range("A1").PasteSpecialPaste:=xlPasteValues Application.CutCopyMode = False End Sub本回答被网友采纳
第3个回答 2015-11-12
Sub aa() Dim x If Worksheets("sheet2").Range("a56565").End(xlUp).Row = 1 And Worksheets("sheet2").Range("a1").Value = "" Then x = 1 ElseIf Worksheets("sheet2").Range("a56565").End(xlUp).Row = 1 And Worksheets("sheet2").Range("a...