求助vba八段高手解惑

双色铁旗

神一样的帖子，需要神一样的九段高手来解码了,神奇等待中...

双色铁旗

彪悍的短码终于被群”零基础学VBA-公开课246666937““又一单身俱乐部”九段高手大师解了，在此向这位大师致敬！拜谢了！！！

zz16326556

楼主，把最终解答的方案公布下，让大家学习学习吧

双色铁旗

Sub 按钮2_Click()
Dim lastrow%
        Application.ScreenUpdating = False
lastrow = Sheet2.Cells(Rows.Count, 1).End(xlUp).Row + 1
Sheet1.Range("A2:G166").Copy Sheet2.Range("A" & lastrow)
        Sheet2.Activate
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]
        Sheet1.Activate
        Application.ScreenUpdating = True
End Sub

双色铁旗

已发，等待审核，不错的精悍东东，值得借鉴！