1.ä¸é¢çå®ä¾ã
2.ä¸å¾ä¸ï¼å¨Sheet1ä¸ï¼AåçA3åå
æ ¼ï¼æ°æ®æ¯âæåâï¼
3.çä¸å¾ï¼Sheet2ä¸çA23åå
æ ¼ï¼å
容ä¹æ¯âæåâï¼
ç°å¨ï¼è¦åçæ¯ï¼å¨Sheet1ä¸ï¼ç¹å»A3ä¸çâæåâï¼å°±ä¼èªå¨è·³å°Sheet2ä¸çA23åå
æ ¼ã
å¯ä»¥è¿æ ·è¯´ï¼æ 论ç¹å»Sheet1Aåä¸çä»»ä½ä¸ä¸ªåå
æ ¼ï¼åªè¦å¨Sheet2ä¸çAåï¼æä¸å
¶å¼ç¸åçï¼å°±èªå¨è·³å°Sheet2çç¸åºåå
æ ¼ï¼
æ¹æ³æ¯ï¼å³é®ç¹å»âSheet1âï¼å¨å¼¹åºçå¿«æ·èåä¸ï¼ç¹å»âæ¥ç代ç âï¼å¦ä¸å¾ã
4.ä¹åï¼ä¼å¼¹åºå¦ä¸å¾ä¸ä¸ªçVB代ç ç¼åçªå£ã
5.è¿ä¸ªæ¶åï¼æ é¡»åé¢å¤ç代ç ç¼åï¼åªéè¦æç
§ä¸å¾ï¼æ代ç ç²è´´ä¸å»å°±å®æäºã
为äºæ¹ä¾¿å¤§å®¶çå¦ä¹ ï¼ä¸é¢ï¼å°ä»£ç è´´å°ä¸æï¼
Private Sub Worksheet_SelectionChange(ByVal Target As Range)ããIf Target.Column = 1 ThenããIf Sheet1.Cells(Target.Row, 1) <> "" ThenããFor i = 1 To Sheet2.UsedRange.Rows.CountããIf Sheet2.Cells(i, 1).Value = Sheet1.Cells(Target.Row, 1).Value ThenããSheet2.ActivateããSheet2.Range("A" & i).SelectããEnd IfããNext iããEnd IfããEnd IfããEnd Sub
温馨提示:答案为网友推荐,仅供参考