在处理表格时需要把以前的内容全部改成新的格式,如"95-100-305"改成"黄华路95号100栋305房",就是"AA-BBB-CCC"改成"黄华路AA号BBB栋CCC房",急用谢谢!
æ¹æ³ä¸æ¥éª¤å¦ä¸ï¼
1ãåå¤æ°çååï¼å¯¹åºç¸åºçå·¥ä½è¡¨ï¼ä»A2åå æ ¼å¼å§ï¼A1åæ¾æ é¢å段å¦ä¸ï¼
2ãæ°ååå ¨é¨åå¤å¥½åï¼ç¶åä»»æå·¥ä½è¡¨æ ç¾å³å»ï¼ç¹å»æ¥ç代ç ï¼æè ALT+F 11å¿«æ·é®ï¼è°åºVBE对è¯æ¡ã
3ãè¿å ¥VBE对è¯æ¡åï¼å³å»thisworkbook,éæ©æå ¥ï¼ç¶åéæ©æ¨¡åã
4ãåå»æ¨¡åï¼è¿å ¥ä»£ç è¾å ¥æ¡è¾å ¥ä¸ä¸ä»£ç
Sub éå½å()
Dim i&
For i = 2 To Sheets.Count
Sheets(i).Name = Sheets(1).Cells(i, 1)
Next
End Sub
ä¹å¯ä»¥è®°ä½ï¼ä¸æ¬¡ç´æ¥ç²è´´å³å¯ï¼ä»£ç éç¨ã
5ã ç¶åç¹å»å¼åå·¥å ·é项å¡ï¼å¨æ§ä»¶ä¸é¢éæ©æé®æ§ä»¶ï¼å¼åå·¥å ·é项å¡ä¸è¬é»è®¤æ¯æ²¡æçï¼å ·ä½å¯åèæåé¢çç»éªï¼æå ·ä½ä»ç»å¦ä½è°åºï¼
6ãå¨ç©ºç½å¤ï¼æå¨é¼ æ ï¼ç»åºä¸ä¸ªå¤§å°éåçæé®ï¼ç¶åå³å»éæ©å¶å®å®ã
7ãéæ©éå½åï¼ç¶åç¹å»ç¡®å®ã
8ãæåç¹å»æé®ï¼ççææå§ï¼å·²ç»å ¨é¨éå½åã