1.éè¿è¦è¿è¡å¯¹æ¯ç两个工ä½è¡¨æå¤ä¸ªå·¥ä½è¡¨ä½äºä¸åçæ件ä¸ï¼é¦å
è¦åçå°±æ¯å½å¤ä¸ªè¦è¿è¡å¯¹æ¯çExcelå·¥ä½è¡¨æ°æ®å¤å¶ç²è´´å°åä¸ä¸ªå·¥ä½è¡¨ä¸ï¼åæ¶å好å个工ä½è¡¨çå½ååå¤ï¼ä»¥ä¾¿è½æ£ç¡®çåºåæ°æ®çæ¥æºã
2.æ¥ä¸æ¥ç¡®å®æ°æ®âå
³é®åâé¨åï¼å³è½å¤å¯ä¸æ è¯è®°å½çå
³é®åç»åï¼è¿æ ·å°±å¯ä»¥å¨è¿è¡æ°æ®å¯¹æ¯æ¶ï¼è½å¤å¯ä¸çæ è®°ä¸æ¡è®°å½ãæ¯å¦ï¼å¦å¾æ示çâIDâåâå§åâå°±å¯ä»¥å¯ä¸æ è¯ä¸æ¡è®°å½ã
3.æ¥ä¸æ¥ï¼è¿è¦ç¡®å®ä¸ä¸ï¼å个工ä½è¡¨æ°æ®è¡çèå´ä»¥åè¦è¿è¡å¯¹æ¯çå
³é®åæå¨çä½ç½®ä¿¡æ¯ãå¦å¾å¯ç¥ï¼
åå·¥åºç¡æ¥è¡¨ä¸æ°æ®èå´ä¸ºâ3è³12è¡âï¼å
³é®åæå¨çä½ç½®ä¸ºï¼iè¡1åï¼åï¼iè¡2åï¼ã
åå·¥å¾
éç»è®¡è¡¨ä¸æ°æ®èå´ä¸ºâ3è³11è¡âï¼å
³é®åæå¨çä½ç½®ä¸ºï¼iè¡1åï¼åï¼iè¡2åï¼ã
4.æé®çä¸çå¿«æ·ç»åé®âAlt+F11âè¿å
¥VBAç¼è¾æ¨¡å¼ãæè
åæ¢è³âå¼åå·¥å
·âé项å¡ï¼ç¹å»âVisual Basicâæé®è¿å
¥VBAç¯å¢ã
æå
³âå¼åå·¥å
·âé项å¡çæå¼æ¹æ³è¯·åèæ ç®äºé¨åã
5.å³å»âMicrosoft Excel对象âï¼ä»å¼¹åºçå³é®èåä¸éæ©âæå
¥â->â模åâ项ã
6.æ¥çè¾å
¥å¦å¾æ示ç代ç ï¼
Sub æ°æ®å¯¹æ¯()
Dim i As Integer
Dim j As Integer
For i = 3 To 12 'åå·¥åºç¡æ¥è¡¨æ°æ®èå´
For j = 3 To 11 'åå·¥å¾
éç»è®¡è¡¨æ°æ®èå´
If Sheets("åå·¥åºç¡æ¥è¡¨").Cells(i, 1) = Sheets("åå·¥å¾
éç»è®¡è¡¨").Cells(j, 1) Then
If Sheets("åå·¥åºç¡æ¥è¡¨").Cells(i, 2) = Sheets("åå·¥å¾
éç»è®¡è¡¨").Cells(j, 2) Then
Sheets("åå·¥åºç¡æ¥è¡¨").Cells(i, 8) = "å·²åå¨" 'åå¨æ¶è¿è¡æ è®°
End If
End If
Next j
Next i
End Sub
7.ç¶åç¹å»å·¥å
·æ ä¸çâè°è¯è¿è¡âæé®ã
8.å¾
åè¿ç¨è¿è¡ç»æåï¼è¿åExcelå·¥ä½è¡¨è¿è¡æ¥çï¼å°±ä¼åç°å¯¹æ¯ç»æå·²ç»åºæ¥å¦ãåºäºæ¤ï¼å¯ä»¥è¿è¡æ´è¿ä¸æ¥çæ°æ®å¤çæä½ã顺便ä¹å°å¦ä¸å¼ å·¥ä½è¡¨ä¸çè®°å½ä¸åå±ç¤ºåºæ¥ï¼ä»¥ä¾åèã
温馨提示:答案为网友推荐,仅供参考