æ¨çè¿ä¸ªè¦æ±ç¨EXCELå½æ°å
¬å¼è¯å®ä¸è¡çï¼éè¦ç¨VBAåä¸ä¸ªä»£ç æ¥å®ç°ãå¨å½åå·¥ä½è¡¨åºé¨æ ç¾ä¸ç¹é¼ æ å³é®ï¼éâæ¥ç代ç âï¼è°åºVBAçªå£ï¼å°ä¸é¢ä»£ç ç²è´´å°çªå£ä¸ï¼ç¶ååå°EXCELï¼å¨A1åå
æ ¼è¾å
¥æ°æ®ï¼åå¨A2è¾å
¥æ°æ®ï¼å°±å¨å¨A2ä¸åæ¶æ¾ç¤ºA1ä¸A2çå
容ãPrivate Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$A$2" Then
Application.EnableEvents = False
s = Target.Value
[a2] = [a1] & s
Application.EnableEvents = True
End If
End Sub
温馨提示:内容为网友见解,仅供参考