2,461
社区成员
发帖
与我相关
我的任务
分享
If temp = temp1 Then
Sheets(activesheetname).Rows(temprow1 & ":" & temprow1).Select
Selection.Copy
Dim i As Long
For i = 1 To Sheets.Count
If Sheets(i).Name <> activesheetname Then
tepmrowA = 1
Sheets(i).Select
again1:
If Sheets(i).Cells(tepmrowA, 1).Value = "" Then
Sheets(i).Cells(tepmrowA, 1).Activate
ActiveSheet.Paste
Else
tepmrowA = tepmrowA + 1
GoTo again1
End If
End If
Next
Sheets(activesheetname).Select
Application.CutCopyMode = False
End If
Private Sub test()
Dim s1 As Worksheet
Dim s2 As Worksheet
Dim Rng As Range
Set s1 = ThisWorkbook.Worksheets("sheet1")
Set Rng = Selection
Rng.Copy
Set s2 = ThisWorkbook.Worksheets("sheet2")
s2.Activate
s2.Cells(20, 4).Select
s2.Paste
s1.Activate
End Sub
Private Sub test()
Dim s1 As Worksheet
Dim s2 As Worksheet
Dim Rng As Range
Set s1 = ThisWorkbook.Worksheets("sheet1")
Set Rng = Selection
Rng.Copy
Set s2 = ThisWorkbook.Worksheets("sheet2")
s2.Activate
Set Rng = s2.Cells(1, 1)
Rng.Activate
s2.Paste
s1.Activate
End Sub
Private Sub test()
Dim s1 As Worksheet
Dim s2 As Worksheet
Dim Rng As Range
Set s1 = ThisWorkbook.Worksheets("sheet1")
Set Rng = Selection
Rng.Copy
Set s2 = ThisWorkbook.Worksheets("sheet2")
s2.Activate
s2.Paste
s1.Activate
End Sub