VBA ä¸çworksheet_change äºä»¶
å设å¨sheet1ç A1åå
æ ¼è¾å
¥æ°æ®ï¼èªå¨éè¡è®°å½å¨sheet2 Båï¼
éä¸sheet1å·¥ä½è¡¨æ ç¾---å³é®--æ¥ç代ç ---å§ä¸å代ç å¤å¶è¿å»ï¼å
³éVBç¼è¾å¨ãSHEET1 A1è¾å
¥ç»æï¼ä¼èªå¨ç½åå°sheet2çBåï¼
Private Sub Worksheet_Change(ByVal Target As Range)
N = Sheets("sheet2").[b65536].End(3).Row + 1
If Target.Address = "$A$1" Then
Sheets("sheet2").Cells(N, "b") = Target
End If
End Sub
追é®ä¸è¡åï¼èä¸ææ¯æ³è¦éè¿æé®å®ç°æ表ä¸çæ°æ®å¨è¡¨2ä¸éè¡è®°å½æ°æ®
追çç»ä¸ªé®ç®±~å个æ件åç»ä½ ~
追é®[email protected]
追çå·²ç»åé~