æ°æ®éè§è¡¨å®ç°çå¿«éå并åå
æ ¼
1
æå¼éè¦å并åå
æ ¼çexcelè¡¨æ ¼ã(è¿éæ¯ä»¥excel 2007çæ¬ä¸ºä¾ï¼
2
éæ©èåæ âæå
¥âé项å¡ï¼ç¹å»âæ°æ®éè§è¡¨âä¸æå表âæ°æ®éè§è¡¨âï¼æ¤æ¶ï¼å¼¹åºå建æ°æ®éè§è¡¨ççªå£ã
â请éæ©è¦åæçæ°æ®âï¼å¦ææ¯æ¬å·¥ä½è¡¨ç´æ¥éæ©è¡¨æåºåå³å¯ï¼å¦æéè¦è¿æ¥å¤é¨æ°æ®ï¼ç¹éâ使ç¨å¤é¨æ°æ®æºâï¼è¿æ¥å°æ°æ®æºçä½ç½®ã
âéæ©æ¾ç½®æ°æ®éè§è¡¨çä½ç½®âï¼å¯ä»¥æ¾ç½®å¨æ°çå·¥ä½è¡¨ï¼ç³»ç»é»è®¤ï¼ï¼ä¹å¯ä»¥æ¾ç½®ç°æå·¥ä½è¡¨ï¼éæ©æ¾ç½®ç°æå·¥ä½è¡¨çä½ç½®ã
ç¹å»âç¡®å®âæé®ã
3
æ¤æ¶ï¼ç³»ç»å¼¹åºâæ°æ®éè§è¡¨å段å表âï¼å¨âéæ©è¦æ·»å å°æ¥è¡¨çå段âä¸ï¼å°éè¦ä½¿ç¨çå段æå¨âæ¥è¡¨çéââåæ ç¾ââè¡æ ç¾ââæ°å¼âä¸é¢çæ¡å
ãè¿æ¯åªéè¦å°âç份ââåå¸âæ¾ç½®å¨è¡æ ç¾ã
4
éä¸âæ°æ®éè§è¡¨âï¼å¨èåæ â设计âé项å¡ä¸ï¼ç¹å»âæ¥è¡¨å¸å±âä¸æå表ä¸âä»¥è¡¨æ ¼å½¢å¼æ¾ç¤ºâï¼ç¹å»âåç±»æ±æ»âä¸æå表ä¸âä¸æ¾ç¤ºåç±»æ±æ»âãå¯ä»¥å¨âæ°æ®éè§è¡¨æ ·å¼âä¸è®¾ç½®ç¹éæ°æ®éè§è¡¨æ ·å¼ã
5
éä¸âæ°æ®éè§è¡¨âï¼å³å»å¨å¼¹åºçå¿«æ·èåä¸ï¼éæ©âæ°æ®éè§è¡¨é项âã
6
å¨å¼¹åºçâæ°æ®éè§è¡¨é项âçªå£ä¸ï¼éæ©âå¸å±åæ ¼å¼âé项å¡,å¨âå¸å±âç®å½ä¸ï¼å¾éâå并ä¸å±
ä¸æå带æ ç¾çåå
æ ¼âï¼ç¹å»âç¡®å®âæé®ã
7
è¿æ ·ï¼ææè®°å½ä¸ç¸åçç份就èªå¨å并å®æãå¦æéè¦ç¼è¾ç´æ¥å¤å¶çæçè¡¨æ ¼å³å¯ã
END
使ç¨å®ä»£ç å®ç°çå¿«éå并åå
æ ¼
1
å¨èåæ âè§å¾âé项å¡ï¼ç¹å»âå®âä¸æå表âå½å¶å®âã
2
æ¤æ¶ï¼å¨å¼¹åºçâå½å¶æ°å®âçªå£ä¸ï¼è®¾ç½®å®åãå¿«æ·é®åä¿åå¨çå·¥ä½èãï¼å¿«æ·é®ä¸å¯ä»¥è®¾ç½®excelè¡¨æ ¼å¸¸ç¨çå¿«æ·é®å¦ï¼Ctrl+Aï¼Ctrl+Cï¼Ctrl+Sçãï¼ç¹å»âç¡®å®âæé®ã
è¿åèåæ âè§å¾âé项å¡ï¼ç¹å»âå®âä¸æå表âåæ¢å½å¶âã
3
ç¹å»âå®âä¸æå表âæ¥çå®âï¼å¨å¼¹åºçâå®âçªå£ä¸éæ©èªå·±å®ä¹å®ï¼è¿éå®æ¯Macro1ï¼éä¸åä¼é«äº®æ¾ç¤ºï¼ç¶åç¹å»âç¼è¾âã
4
ç¶åå¨å¼¹åºç模åçªå£ä¸ï¼è¾å
¥å¦ä¸VBA代ç ï¼
Sub Macro1()
' Macro1 Macro
' å¿«æ·é®: Ctrl+Shift+A
Application.Goto Reference:="Macro1"
Application.DisplayAlerts = False
For i = [A65536].End(3).Row To 2 Step -1
If Cells(i - 1, 1) = Cells(i, 1) Then
Range(Cells(i - 1, 1), Cells(i, 1)).Merge
End If
Next
Application.DisplayAlerts = True
End Sub
5
ç¶åç¹å»å·¥å
·æ ä¸çä¸è§ç®å¤´ï¼è¿è¡æ¤VBA代ç ã
è¿æ ·Aåçç份å³å¯å并å®æã
END
使ç¨åç±»æ±æ»å®ç°å¿«éå并åå
æ ¼
æå¼æ°æ®æºï¼å¨èåæ âæ°æ®âé项å¡ï¼ç¹å»âçéâæé®æè
ç´æ¥æå¿«æ·é®âCtrl+shift+L"ã
ç¹å»ç份çä¸è§ç®å¤´ï¼å¨å¼¹åºçä¸æå表ä¸ï¼ç¹å»âååºâæâéåºâãç¶åï¼ç¹å»âçéâæé®æè
æå¿«æ·é®âCtrl+shift+L"åæ¶çéï¼å¦æä½ çæ°æ®å·²ç»æåºå¥½å°±ä¸éè¦åé¢çæ¥éª¤ã
éä¸âç份âAåï¼å¨èåæ âæ°æ®âé项å¡ä¸ï¼ç¹å»åç±»æ±æ»ãå¨å¼¹åºçâåç±»æ±æ»âçªå£ä¸ï¼å¾éâæ±æ»ç»ææ¾ç¤ºå¨æ°æ®ä¸æ¹âï¼ç¹å»âç¡®å®âæé®ã
å¨çæçAåï¼æ·»å ä¸ä¸ªæ é¢ã
éä¸Aåï¼å¨èåæ âå¼å§âé项å¡ï¼ç¹å»âæ¥æ¾åéæ©âçä¸ä¸è§ï¼å¨å¼¹åºçä¸æå表ä¸ï¼éæ©âå®ä½æ¡ä»¶âã
æè
ç´æ¥æå¿«æ·é®âF5âã
å¨å¼¹åºçâå®ä½ï¼çªå£ä¸ï¼ç¹å»âå®ä½æ¡ä»¶âãå¨âå®ä½æ¡ä»¶âçªå£ä¸ï¼éæ©â空å¼âï¼æä¸âç¡®å®âæé®ã
å¨èåæ âå¼å§âé项å¡ä¸ï¼ç¹å»âå并åå±
ä¸âã
éæ©åç份åï¼Båï¼ï¼å¨èåæ âæ°æ®âé项å¡ä¸ï¼ç¹å»âåç±»æ±æ»âï¼å¨å¼¹åºçåç±»æ±æ»çªå£ä¸ï¼åæ¶å¾éâæ±æ»ç»ææ¾ç¤ºå¨æ°æ®ä¸æ¹âï¼ç¹å»âå
¨é¨å é¤âæé®ã
éä¸Aåï¼å¨èåæ âå¼å§âé项å¡ä¸ï¼ç¹å»âæ ¼å¼å·âï¼ç¶åï¼ç¹å»Båãè¿æ ·Båå°±å¤å¶äºAåçæ ¼å¼ã
æåï¼å é¤Aåå³å¯ã
温馨提示:答案为网友推荐,仅供参考