ä¸æ麻ç¦ï¼å
éæ©A4åB4ï¼å³é®ï¼è®¾ç½®åå
æ ¼æ ¼å¼ï¼å并åå
æ ¼ãç¶åå³æç¨é¼ æ éæ©A5åB5ï¼å·¦ææé®çä¸çF4ï¼.... å¤çè¯ï¼ç¨å®ãåæ¶æAltåF11ï¼ç¹VBçé¢çèåï¼æå
¥ï¼æ¨¡åï¼å¨æ°çªå£ä¸ç²è´´å¦ä¸ä»£ç ï¼Sub Macro3()
Dim i As Integer
For i = 4 To 100
Range(Cells(i, 1), Cells(i, 2)).MergeCells = True
Next i
End Sub
å°100æ¹ä¸ºä½ æåçè¡å·ï¼ç¶åç´æ¥æF5æ§è¡æ¤å®ï¼æå®ã å¦ææ³è¿CDåä¸å¹¶å并ï¼å¨Next iåå¢å ä¸å¥Range(Cells(i, 3), Cells(i, 4)).MergeCells = True
温馨提示:答案为网友推荐,仅供参考