excel中vba代码的问题，请教一个思路即可 请教一个Excel宏代码问题
\u8bf7\u6559\u4e00\u4e2a\u5173\u4e8eEXCEL\u7684VBA\u4ee3\u7801\u7684\u95ee\u9898Sub \u5b8f2()'' \u5b8f2 \u5b8f''\u590d\u5236\u6807\u9898\u884c Range("A1:T1").Select Application.CutCopyMode = False Selection.Copy Windows("\u7c7b\u522b1.xlsx").Activate Range("A1").Select ActiveSheet.Paste Windows("\u7c7b\u522b2.xlsx").Activate Range("A1").Select ActiveSheet.Paste Windows("\u5de5\u4f5c\u7c3f1.xlsx").Activate s1 = 2 s2 = 2 For i = 2 To 65536 rg = "T" & i If Range(rg).Text "" Then If Range(rg).Text = 1 Then '\u7c7b\u522b\u4e3a1 rg = "A" & i & ":T" & i Range(rg).Select Application.CutCopyMode = False Selection.Copy Windows("\u7c7b\u522b1.xlsx").Activate rg = "A" & s1 Range(rg).Select ActiveSheet.Paste Windows("\u5de5\u4f5c\u7c3f1.xlsx").Activate s1 = s1 + 1 End If If Range(rg).Text = 2 Then '\u7c7b\u522b\u4e3a2 rg = "A" & i & ":T" & i Range(rg).Select Application.CutCopyMode = False Selection.Copy Windows("\u7c7b\u522b2.xlsx").Activate rg = "A" & s2 Range(rg).Select ActiveSheet.Paste Windows("\u5de5\u4f5c\u7c3f1.xlsx").Activate s2 = s2 + 1 End If If Range(rg).Text = 3 Then '\u7c7b\u522b\u4e3a3 rg = "A" & i & ":T" & i Range(rg).Select Application.CutCopyMode = False Selection.Delete Shift:=xlUp i = i - 1 End If Else Exit For End IfNextEnd Sub\u5728\u7ebf\u4ea4\u6d41\uff0c\u671b\u91c7\u7eb3\u3002\u5de5\u4f5c\u8584\u540d\u5206\u522b\u4e3a\uff1a\u5de5\u4f5c\u7c3f1\uff0c\u7c7b\u522b1\uff0c\u7c7b\u522b2\u3002\u8981\u6c42\u5148\u6253\u5f00\u3002\u662fxlsx\u683c\u5f0f\u7684\u3002
\u8981\u7528\u5728\u5176\u4ed6\u884c\uff0c\u8981\u4e48\u6539vba\u4ee3\u7801\uff0c\u8981\u4e48\u5c31\u8bbe\u7f6e\u4e2a\u8f93\u5165\u53e3\uff0c\u8f93\u5165\u90a3\u4e00\u884c\u7684\u6807\u5fd7\u3002
1、将A列分列分开（分成四列）
2、D列用公式就可以得到结果（if 判断A、B、C三种计算公式）
我说几点：
1、数据分列后的结果，不用单元格存放，除非你有这个需求。这个是挺占用时间的。
2、尽量用数组，原始数据用一个数组，在需要的输出列用一个数组，区域和数组之间传数据相对就快。
3、分列的数据 ，建议 先 & “;;”后再分列，这样，程序处理图例第四行与第二行是同一个程序了。而不用增加分支判断。
4、 数据多了，是挺占用时间的，要耐心。
绛旓細鍦‥xcel鐨刅BA锛圴isual Basic for Applications锛変腑锛屽父瑙佺殑閿欒浠ｇ爜鍖呮嫭锛绫诲瀷涓嶅尮閰嶉敊璇锛圱ype Mismatch Error锛夛細閫氬父鍙戠敓鍦ㄥ皢涓嶅吋瀹圭殑鏁版嵁绫诲瀷璧嬬粰鍙橀噺鎴栧弬鏁版椂銆傝В鍐虫柟娉曟槸纭繚鍙橀噺鍜屽弬鏁扮殑鏁版嵁绫诲瀷鐩稿尮閰嶃傚璞″彉閲忔湭璁剧疆閿欒锛圤bject Variable Not Set Error锛夛細閫氬父鍙戠敓鍦ㄥ皾璇曚娇鐢ㄦ湭璁剧疆鐨勫璞″彉閲忔椂銆傝В...
绛旓細鍙互閲嶆柊褰曞埗瀹忔浛鎹㈡帀锛屽鏋滄浛鎹篃淇濆瓨锛岀洿鎺all瀹
绛旓細閲嶆柊鍒涘缓瀹忥細濡傛灉瀹忓凡琚垹闄わ紝浣犻渶瑕侀噸鏂板垱寤哄畠銆傚鏋滀綘鏈夊師濮嬬殑瀹忎唬鐮侊紝鍙互鎸夌収鍏堝墠鐨勬楠ゅ皢鍏剁矘璐村埌VBA缂栬緫鍣ㄤ腑銆傚鏋滄病鏈夊師濮嬩唬鐮侊紝浣犲彲鑳介渶瑕佷粠澶村紑濮嬬紪鍐欏畯銆備娇鐢ㄥ叾浠栫數鑴戞垨鐗堟湰鐨凟xcel锛氬鏋滀綘鏈夊叾浠栫數鑴戞垨Excel鐗堟湰鍙敤锛屽皾璇曞湪涓嶅悓鐨勭幆澧冧腑鎵撳紑宸ヤ綔绨匡紝鐪嬬湅鏄惁浠嶇劧鏄剧ず閿欒娑堟伅銆傝繖鍙互甯姪纭畾闂...
绛旓細濡傛灉鎴戠殑鐚滄祴娌℃湁閿欑殑璇濓紝杩欐槸鐢变簬鍐 VBA 浠ｇ爜鐨勪汉浣跨敤鐨勬槸 绻佷綋涓枃 鎿嶄綔绯荤粺锛屽畠鍦ㄧ紪杈 VBA 浠ｇ爜鏃朵娇鐢ㄤ簡 Big5 鐮 鎴 CJK 鐮銆傛墍浠ワ紝褰撲綘浣跨敤 绠浣撲腑鏂 鎿嶄綔绯荤粺鏃讹紝瀵逛簬 VBA 鏉ヨ灏辨樉绀烘垚涔辩爜锛屾棤娉曟纭墽琛屻傚浜庡紑鍙戣呮潵璇达紝搴旇鏋佸姏閬垮厤鍑虹幇杩欑鎯呭喌锛屽敖閲忎笉瑕佸湪 VBA 浠ｇ爜涓娇鐢ㄩ潪鑻辨枃鐨勫瓧...
绛旓細鎴戝缓璁綘鎸夌収浠ヤ笅鐨勬楠ゆ潵瑙ｅ喅浣犵殑闂锛氬畾涔夊彉閲銆備綘闇瑕佸畾涔変竴浜涘彉閲忔潵瀛樺偍浣犻渶瑕佹搷浣滅殑鏁版嵁鍜岃寖鍥达紝姣斿琛屾暟銆佸垪鏁般佸崟鍏冩牸鍊肩瓑銆傝繖鏍峰仛鏄负浜嗚浣犵殑浠ｇ爜鏇存竻鏅板拰鏄撴噦锛屼篃鏂逛究鍚庣画鐨勪慨鏀瑰拰璋冭瘯銆傚惊鐜亶鍘嗐備綘闇瑕佷娇鐢‵or寰幆鎴栬匘o While寰幆鏉ラ亶鍘嗘瘡涓琛岀殑鏁版嵁锛屽垽鏂瘡涓琛屾槸鍚︽弧瓒冲垹闄ゆ垨娓呴櫎鐨勬潯浠躲
绛旓細End(XX).Row杩欎釜鍑芥暟瀹冧富瑕佹槸鏌ユ壘鏈鍚庝竴涓潪绌哄崟鍏冩牸銆侲nd鍚庨潰鎷彿鍐匵X鏈4绉嶅弬鏁颁唬琛ㄦ柟鍚戯細xlup,xldown,xltoleft,xltoright 鎵浠ュ畠涓嶈兘鐢ㄦ潵瀹炵幇闈炵┖琛屾暟銆侲nd(xlDown).Row鏁堟灉濡備笅锛屼綘浼氱湅鍒板畠鐨缁撴灉鏄6,xlDown鏄粠1寰涓嬫壘锛岄亣鍒扮殑绗竴涓┖鍗曞厓鏍煎氨杩斿洖銆倄lDown鏁堟灉濡備笅锛屽畠鏄疉鍒楁渶鍚庝竴琛屽紑濮嬪線涓婃壘锛...
绛旓細1銆佸皢A鍒楀垎鍒楀垎寮锛堝垎鎴愬洓鍒楋級2銆丏鍒楃敤鍏紡灏卞彲浠ュ緱鍒扮粨鏋滐紙if 鍒ゆ柇A銆丅銆丆涓夌璁＄畻鍏紡锛
绛旓細xlx")While f <> ""With Workbooks.Open(p & f).VBProject.VBComponents.Remove.VBProject.VBComponents.Import "a.bas"End Withf = Dir()Wend宸ヤ綔鍘熺悊锛屾壂鎻忔墍鏈夌殑鏂囦欢锛岀Щ闄閲岄潰鐨勪唬鐮侊紝閲嶆柊瀵煎叆銆俛.bas鏄爣鍑嗗伐浣滅翱瀵煎嚭鐨勪唬鐮佹枃浠躲傛敞鎰锛屼唬鐮杩愯鐨勫墠鎻愭槸瀹夊叏閲岄潰璁剧疆淇′换瀵瑰伐绋嬪璞＄殑璁块棶銆
绛旓細鎶ラ敊鐨勯偅鍙ヤ慨鏀瑰涓嬶細ActiveWorkbook.Names.Add Name:=Cells(i, 1), RefersToR1C1:="=Sheet1!R" & i & "C2:R" & i & "C" & j 瀛樺湪鐨勯棶棰锛氫竴鏄彲鑳藉琛岃鍙ュ鐞嗙己灏戠┖鏍硷紝浜屾槸&涓嶈鍜屽彉閲忚繛鎺ワ紝涓夋槸瀛楃涓插簲褰撲娇鐢ㄥ弻寮曞彿銆
绛旓細鍙兘鍘熷洜锛氳瑷璇█浠ｇ爜闂 绯荤粺瀛椾綋闂 瑙ｅ喅鏂规硶锛氣憼鍦ㄦ帶鍒堕潰鏉挎妸璇█鍖哄煙璋冩垚涓枃 鈶″紑濮嬭彍鍗--鎵鏈夌▼搴--Office 2013--Office 2013宸ュ叿--璇█棣栭夐」--娣诲姞璁剧疆涓枃涓洪閫夐」 鈶娇鐢ㄤ腑鏂囩増Win10 鈶ｅExcel浣跨敤杞爜宸ュ叿(濡侫ppLocale绛)鍦ㄦ棤闂鐨WIN10鐢佃剳涓婃嫹璐濅竴濂楀瓧浣撳埌C;\windows\fonts\涓嬶紝瑕嗙洊...
