0
https://www.imageupload.co.uk/images/2017/09/25/question.pngVBA复制一定范围内的值到另一个新的工作簿
请问我怎样才能让代码自动复制从A3数据的范围 - I19到另一个新的工作簿通过单击“命令按钮”。
Sub CommandButton()
Range("A3").Copy Range("I19")
End Sub
https://www.imageupload.co.uk/images/2017/09/25/question.pngVBA复制一定范围内的值到另一个新的工作簿
请问我怎样才能让代码自动复制从A3数据的范围 - I19到另一个新的工作簿通过单击“命令按钮”。
Sub CommandButton()
Range("A3").Copy Range("I19")
End Sub
指定波纹管命令按钮。
Sub CommandButton()
Dim wb As Workbook
Set wb = Workbooks.Add(xlWBATWorksheet)
Dim sh As Long
Dim rg As Range
Dim Rng As Range
Dim rw As Range
Application.ScreenUpdating = False
For Each rw In Range("A3:I19").Cells
If rw.EntireRow.Hidden = False Then
If Rng Is Nothing Then Set Rng = rw
Set Rng = Union(rw, Rng)
End If
Next
Rng.Copy
With wb.Sheets("Sheet1")
sh = .Cells(Rows.Count, "A").End(xlUp).row + 2
.Activate
.Cells(sh, "A").Select
End with
ActiveSheet.Paste
End Sub
'End With'丢失。 – AntiDrondert
方面。谢谢。 – mgae2m