excel自动复制粘贴代码

发布网友

我来回答

共1个回答

热心网友

Sub 复制()
Dim I%
I = Sheets(2).Range("A65536").End(xlUp).Row
Range("A2：D2").Copy Sheets(2).Range("a" & I + 1)
End Sub

代码放在sheet1表
直接点 按钮即可追问大神 我用了 好用 但sheet1的A2:D2是我举的例子 不是固定的 是根据鼠标选取的区域来复制，再就是sheet1和sheet2的表名我也要重命名，这个名称在代码里咋改

追答你意思A2：D2不是固定的？
Sub 鼠标选定区域复制粘贴()
Dim k As Integer
k = Sheet2.Cells(Rows.Count, 1).End(xlUp).Row
Set X = Application.InputBox("请选择区域范围", "范围引用", Type:=8)
X.Copy Sheet2.Cells(k + 1, 1)
End Sub

热心网友

Sub 复制()
Dim I%
I = Sheets(2).Range("A65536").End(xlUp).Row
Range("A2：D2").Copy Sheets(2).Range("a" & I + 1)
End Sub

代码放在sheet1表
直接点 按钮即可追问大神 我用了 好用 但sheet1的A2:D2是我举的例子 不是固定的 是根据鼠标选取的区域来复制，再就是sheet1和sheet2的表名我也要重命名，这个名称在代码里咋改

追答你意思A2：D2不是固定的？
Sub 鼠标选定区域复制粘贴()
Dim k As Integer
k = Sheet2.Cells(Rows.Count, 1).End(xlUp).Row
Set X = Application.InputBox("请选择区域范围", "范围引用", Type:=8)
X.Copy Sheet2.Cells(k + 1, 1)
End Sub

热心网友

Sub 复制()
Dim I%
I = Sheets(2).Range("A65536").End(xlUp).Row
Range("A2：D2").Copy Sheets(2).Range("a" & I + 1)
End Sub

代码放在sheet1表
直接点 按钮即可追问大神 我用了 好用 但sheet1的A2:D2是我举的例子 不是固定的 是根据鼠标选取的区域来复制，再就是sheet1和sheet2的表名我也要重命名，这个名称在代码里咋改

追答你意思A2：D2不是固定的？
Sub 鼠标选定区域复制粘贴()
Dim k As Integer
k = Sheet2.Cells(Rows.Count, 1).End(xlUp).Row
Set X = Application.InputBox("请选择区域范围", "范围引用", Type:=8)
X.Copy Sheet2.Cells(k + 1, 1)
End Sub