|
[广告] VBA代码宝 - VBA编程加强工具 · VBA代码随查随用 · 内置多项VBA编程加强工具 ★ 免费下载 ★ ★ 使用手册★
Sub 按钮2_Click()
Dim lastrow%
lastrow = Sheet2.Cells(Rows.Count, 1).End(xlUp).Row + 1
Sheet1.Range("A2:G166").Copy Sheet2.Range("A" & lastrow)
With ActiveSheet.UsedRange
.Value = .Value
End With
Dim Cell As Range
Set Cell = Cells(Rows.Count, 1).End(xlUp).Offset(2)
Cell.Resize(1, 2).Merge
Cell.Value = Sheet1.[F1] & Sheet1.[G1]
End Sub
这代码原来在sheet2中执行记录备份,因不方便将此代码放在sheet1中执行,提示定位找不到,然后试着添加sheet1的多种表达均无果,本人水平太有限,求大神解决下难题,详见文档表达,在此先多谢大神们相助!(兰色区域代码通不过,其他暂时没问题)
|
|