请教：如何用vba编写语句实现将一个工作表中的内容分拆成到多个工作表中。 excel如何用vba编写代码.把指定多个工作表内容复制到一...
vba\u7cbe\u9009 \u5982\u4f55\u5c06\u4e00\u4e2aExcel\u5de5\u4f5c\u8868\u7684\u6570\u636e\u6309\u4e00\u5217\u7684\u5173\u952e\u5b57\u62c6\u5206\u6210\u591a\u4e2a\u9644\u4ef6\u4e2d\u7684excel\u7684\u4f5c\u7528\u662f\uff0c\u5c06\u6307\u5b9a\u7684\u67d0\u4e2a\u6253\u5f00\u7684\u5de5\u4f5c\u8584\u4e2d\u7684\u4e00\u5f20\u5927\u8868\uff0c\u6309\u6307\u5b9a\u7684\u4e00\u5217\u4e2d\u4e0d\u540c\u7684\u5173\u952e\u5b57\u62c6\u5206\u5230\u591a\u4e2a\u5de5\u4f5c\u8868\uff0c\u6216\u662f\u591a\u4e2a\u5de5\u4f5c\u8584\u4e2d\u3002\u5207\u8bb0\u4e00\u70b9\u7684\u662f\uff0c\u9700\u8981\u62c6\u5206\u7684\u5de5\u4f5c\u8868\uff0c\u8981\u6253\u5f00\u7740\u3002\u5426\u5219\u4f1a\u51fa\u9519\u3002\u4ee5\u4e0b\u6240\u8bf4\u7684\u5173\u952e\u5b57\uff0c\u5176\u5b9e\u5c31\u662f\u6307\u5b9a\u533a\u57df\u6240\u542b\u7684\u4e0d\u91cd\u590d\u5355\u5143\u683c\u3002\u8bf4\u660e\uff1a1\u3001\u70b9\u51fb\u4e0a\u9762\u7684\u6309\u94ae\u540e\uff0c\u9996\u9009\u8981\u8f93\u5165\u9700\u8981\u62c6\u5206\u7684\u5de5\u4f5c\u8868\u6240\u5728\u7684\u5de5\u4f5c\u8584\u540d\u5b57\uff0c\u53ef\u4ee5\u662f\u672c \u5de5\u4f5c\u8584\u540d\u5b57\uff0c\u4e5f\u53ef\u4ee5\u662f\u5176\u4ed6\u6253\u5f00\u7684\u5de5\u4f5c\u8584\u7684\u540d\u5b57\uff0c\u8fd9\u4e2a\u8981\u770b\u4f60\u60f3\u62c6\u5206\u7684\u5de5\u4f5c\u8868\u5177 \u4f53\u5728\u54ea\u4e2a\u5de5\u4f5c\u8584\u4e2d\u4e86\uff0c\u8bb0\u4f4f\u8981\u5305\u542b\u5de5\u4f5c\u8584\u7684\u540e\u7f00\u540d\u3002 2\u3001\u7b2c\u4e8c\u6b65\u8bf7\u8f93\u5165\u7b2c\u4e00\u6b65\u4e2d\u6307\u5b9a\u5de5\u4f5c\u8584\u4e2d\u9700\u8981\u62c6\u5206\u7684\u5de5\u4f5c\u8868\u7684\u540d\u79f0\u3002 3\u3001\u7b2c\u4e09\u6b65\uff0c\u8bf7\u8f93\u5165\u9700\u8981\u62c6\u5206\u7684\u5de5\u4f5c\u8868\u4e2d\u62c6\u5206\u4f9d\u636e\u6240\u5728\u7684\u5217\u53f7\u3002 4\u3001\u7b2c\u56db\u6b65\uff0c\u8bf7\u8f93\u5165\u9700\u8981\u62c6\u5206\u7684\u5de5\u4f5c\u8868\u4e2d\u62c6\u5206\u4f9d\u636e\u5f00\u59cb\u7684\u884c\u53f7\u3002 5\u3001\u7b2c\u4e94\u6b65\uff0c\u8bf7\u8f93\u5165\u9700\u8981\u62c6\u5206\u7684\u5de5\u4f5c\u8868\u4e2d\u62c6\u5206\u4f9d\u636e\u7ed3\u675f\u7684\u884c\u53f7\u3002\u4ee5\u4e0a5\u6b65\u8981\u586b\u7684\u5185\u5bb9\uff0c\u53ef\u4ee5\u4e8b\u5148\u586b\u5728\u672c\u8868H1\u5230H5\u7684\u5355\u5143\u683c\u4e2d\u3002 6\u3001\u7b2c\u516d\u6b65\uff0c\u9700\u8981\u9009\u62e9\u662f\u53ea\u62c6\u5206\u6307\u5b9a\u7684\u5173\u952e\u5b57\uff0c\u8fd8\u662f\u5c06\u62c6\u5206\u4f9d\u636e\u4e2d\u6240\u6709\u7684\u5173\u952e\u5b57\u90fd\u62c6 \u5206\u3002\u5982\u679c\u9700\u8981\u6307\u5b9a\u5173\u952e\u5b57\u62c6\u5206\uff0c\u90a3\u4e48\u5c31\u4f1a\u5f39\u51fa\u9009\u62e9\u5173\u952e\u5b57\u7684\u5bf9\u8bdd\u6846\u3002\u5982\u679c\u6240\u9009\u62e9 \u7684\u5173\u952e\u5b57\u5728\u4f9d\u636e\u533a\u57df\u5168\u90fd\u6ca1\u6709\uff0c\u521a\u4f1a\u63d0\u793a\u662f\u5426\u9700\u8981\u91cd\u65b0\u9009\u62e9\u3002\u5982\u679c\u6240\u9009\u62e9\u7684\u5173\u952e \u5b57\u4e2d\u53ea\u6709\u4e00\u90e8\u5206\u5728\u4f9d\u636e\u533a\u57df\u4e2d\u6709\uff0c\u90a3\u4e48\u53ea\u62c6\u5206\u5728\u62c6\u5206\u4f9d\u636e\u4e2d\u7684\u6709\u5173\u952e\u5b57\u3002 7\u3001\u5982\u679c\u7b2c\u516d\u6b65\uff0c\u5173\u952e\u5b57\u9009\u62e9\u5b8c\u6bd5\uff0c\u90a3\u4e48\u7b2c\u4e03\u6b65\u5c31\u9700\u8981\u9009\u62e9\u662f\u62c6\u5206\u5230\u6e90\u5de5\u4f5c\u8584\u7684\u65b0\u5efa \u5de5\u4f5c\u8868\u4e2d\uff0c\u8fd8\u662f\u62c6\u5206\u5230\u6e90\u5de5\u4f5c\u8584\u6240\u5728\u76ee\u5f55\u4e0b\u9762\u7684\u65b0\u5efa\u5de5\u4f5c\u8584\u4e2d\u3002\u5982\u679c\u9009\u62e9\u62c6\u5206\u5230 \u6e90\u5de5\u4f5c\u8584\u7684\u65b0\u5efa\u5de5\u4f5c\u8868\u4e2d\uff0c\u90a3\u4e48\u5c31\u4f1a\u5148\u5220\u9664\u6e90\u5de5\u4f5c\u8584\u4e2d\u4ee5\u5173\u952e\u5b57\u547d\u540d\u7684\u5de5\u4f5c\u8868\uff0c \u7136\u540e\u518d\u5c06\u62c6\u5206\u7684\u5404\u4e2a\u5de5\u4f5c\u8868\u4ee5\u5173\u952e\u5b57\u547d\u540d\u3002\u5982\u679c\u9009\u62e9\u62c6\u5206\u5230\u65b0\u5efa\u5de5\u4f5c\u8584\u4e2d\uff0c\u90a3\u4e48 \u63a5\u4e0b\u6765\u8981\u9009\u62e9\u65b0\u5efa\u5de5\u4f5c\u8584\u547d\u540d\u65b9\u5f0f\uff0c\u7136\u540e\u518d\u9009\u62e9\u5de5\u4f5c\u8868\u7684\u547d\u540d\u65b9\u5f0f\u3002 8\u3001\u6700\u540e\u4e00\u70b9\uff0c\u5982\u679c\u8981\u53ea\u62c6\u5206\u90e8\u5206\u5173\u952e\u5b57\uff0c\u90a3\u4e48\u5173\u952e\u5b57\u4e00\u5b9a\u8981\u4e8b\u5148\u5199\u5728\u8be5\u5de5\u8584\u4e2d\uff0c\u5426 \u5219\u6ca1\u6cd5\u53d6\u5f97\u5173\u952e\u5b57\u3002\u4e0d\u7ba1\u662f\u62c6\u5206\u90e8\u5206\u5173\u952e\u5b57\u8fd8\u662f\u5168\u90e8\u5173\u952e\u5b57\uff0c\u5173\u952e\u5b57\u6240\u5728\u5355\u5143\u683c \u4e0d\u80fd\u662f\u7528\u516c\u5f0f\u5f97\u5230\u7684\u5b57\u7b26\u3002 ps:\u603b\u8868\u4e2d\u62c6\u5206\u4f9d\u636e\u6240\u5728\u5217\u7684\u5185\u5bb9\u6700\u597d\u4e3a\u7eaf\u6587\u672c\uff0c\u4e0d\u8981\u7528\u516c\u5f0f\u3002\u5e76\u4e14\u5982\u679c\u8981\u62c6\u5206\u7684\u5927\u8868\u4e2d\u5982\u679c\u6709\u5f88\u591a\u516c\u5f0f\uff0c\u6253\u5f00\u5f88\u6162\u7684\u8bdd\uff0c\u5efa\u8bae\u5148\u5728\u5927\u8868\u4e2d\u628a\u516c\u5f0f\u8ba1\u7b97\u6a21\u5f0f\u6539\u4e3a\u624b\u52a8\u8ba1\u7b97\u3002
sub tt
for i= 5 to sheets.count
rw=sheets(i).range("a65536").end(xlup).row
n=sheets(4).range("a65536").end(xlup).row+1
sheets(i).rows("2:" & rw).copy sheets(4).range("a" & n)
rw=nothing
n=nothing
next
end sub
这个好办，下面这样的代码就可以：
Option Explicit
Sub xxx()
Dim i, j, st As Worksheet
'寻找第一行
i = 1
While InStr(Cells(i, 1), "+") = 0
i = i + 1
Wend
'开始输出
While Cells(i, 1) <> ""
If InStr(Cells(i, 1), "+") > 0 Then
Set st = Sheets.Add
st.Name = Cells(i, 1)
j = 1
End If
Rows(i).Copy st.Rows(j)
j = j + 1
i = i + 1
Wend
End Sub
如果完全没有VBA基础，请使用附件。
绛旓細鏂规硶2锛氬敖閲忓噺灏戜娇鐢ㄥ璞″紩鐢锛屽挨鍏跺湪寰幆涓 姣忎竴涓狤xcel瀵硅薄鐨勫睘鎬с佹柟娉曠殑璋冪敤閮介渶瑕侀氳繃OLE鎺ュ彛鐨勪竴涓垨澶氫釜璋冪敤锛岃繖浜汷LE璋冪敤閮芥槸闇瑕佹椂闂寸殑锛屽噺灏戜娇鐢ㄥ璞″紩鐢ㄨ兘鍔犲揩VBA浠ｇ爜鐨勮繍琛屻備緥濡1.浣跨敤With璇彞銆俉orkbooks(1).Sheets(1).Range(鈥矨1:A1000鈥).Font.Name=鈥砅ay鈥砏orkbooks(1).Sheets(1).Ra...
绛旓細vba if璇彞涓哄垽鏂鍙ャ傛牴鎹潯浠剁殑鍊硷紝鍙娇鐢 If鈥hen鈥lse 璇彞杩愯鎸囧畾鐨勮鍙ユ垨涓涓鍙ュ潡銆侷f鈥hen鈥lse 璇彞鍙牴鎹渶瑕佸祵濂楀绾с備絾鏄紝涓轰簡浠ｇ爜鐨勫彲璇绘э紝寤鸿浣跨敤鍏朵綑鐨勮鍙ワ紝姣斿 Select Case 璇彞鑰屼笉浣跨敤澶氬眰宓屽鐨剉ba涓殑 If鈥hen鈥lse 璇彞銆倂ba if璇彞鐢ㄦ硶瑙ｉ噴锛氬綋鏉′欢涓 True 鏃讹紝...
绛旓細1.for鈥︹ext缁撴瀯 杩欎釜缁撴瀯涓鑸槸杩欐牱鐨勶細for i=鍒濆鍊 to 缁撴潫鍊 step 姝ラ暱鍊 鈥︹ext 鍏蜂綋瑙ｉ噴涓涓嬶紝鍒濆鍊兼寚鐨勬槸寰幆寮濮嬬殑鍊硷紝缁撴潫鍊兼寚鐨勬槸寰幆缁撴潫鐨勫硷紝瀹炶川涓婂氨鏄痠鍊煎緱涓涓垽鏂紝濡傛灉i鍊煎湪璧峰鍊煎拰缁撴潫鍊间箣闂达紝閭ｄ箞杩涘叆寰幆璇彞锛岀劧鍚巌鍊兼瘡杩愯鍒皀ext璇彞鍚庝細鑷姩鍔犱竴涓闀垮硷紝鐩磋嚦i鍊...
绛旓細With object [statements]End With 3锛塂o鈥oop璇彞 鍦ㄦ潯浠朵负true鏃讹紝閲嶅鎵ц鍖哄潡鍛戒护 Do {while |until} condition鈥 while 涓哄綋鍨嬪惊鐜紝until涓虹洿鍒板瀷寰幆锛岄【鍚嶆濅箟锛屼笉澶氳鍟 Statements Exit do Statements Loop 鎴栬呬娇鐢ㄤ笅闈㈣娉 Do 鈥 鍏坉o 鍐嶅垽鏂紝鍗充笉璁濡備綍鍏堝共涓娆″啀璇 Statements Exit ...
绛旓細Excel涓浣跨敤vba鎺у埗璇彞鐨勬搷浣滄楠ゅ涓嬶細棣栧厛鎴戜滑鎵撳紑涓涓伐浣滄牱琛ㄤ綔涓轰緥瀛愩傛寜涓媋lt+f11杩涘叆vba缂栬緫鍣紝骞舵柊寤轰竴涓ā鍧椾綔涓哄涔犵殑渚嬪瓙銆傛帴涓嬫潵鎴戜滑鎼缓妯″潡蹇呴』鐨勫噯澶囧伐浣滐紝瀵瑰彉閲忚繘琛屾樉鎬у０鏄庯紝骞舵柊寤轰竴涓ā鍧楀畾涔夈倂ba涓绋嬪簭鎿嶄綔鐨勬祦绋嬬殑鎺у埗浣跨敤if鍑芥暟杩涜鎺у埗銆傚湪excel涓篃鏈塱f鍑芥暟鍏紡銆傚ぇ瀹跺彲浠ョ悊瑙...
绛旓細1. 寤虹珛Excel宸ヤ綔琛紝鍒嗗埆濉叆鍏跺畠鐩稿簲鐨勬暟鎹紝鍖呮嫭E鍒楀厓浠剁殑鍗曚环鍜孌鍒楀厓浠舵暟閲忋2. 鐐瑰嚮鈥滆鍥锯濃啋鈥滃伐鍏锋爮鈥濃啋鈥淰isualBasic鈥濃啋VB鎺т欢宸ュ叿绠便3. 鍦ㄦ暣涓伐浣滆〃鐨勫簳閮ㄦ垨閫傚綋鐨勪綅缃斁缃帶鍒舵寜閽淐ommandButton1鈥濄4. 鍙屽嚮鎺у埗鎸夐挳锛屽姞鍏璇彞锛PrivateSubCommandButton1_Click()DimiAsInteger鈥欒嚜鍔ㄥ～鍏...
绛旓細(1) Option Explicit 寮哄埗瀵规ā鍧楀唴鎵鏈夊彉閲忚繘琛屽０鏄庛侽ption Compare Text 瀛楃涓蹭笉鍖哄垎澶у皬鍐銆侽ption Base 1 鎸囧畾鏁扮粍鐨勭涓涓笅鏍囦负1銆(2) On Error Resume Next 蹇界暐閿欒缁х画鎵цVBA浠ｇ爜,閬垮厤鍑虹幇閿欒娑堟伅銆(3) On Error GoTo ErrorHandler 褰撻敊璇彂鐢熸椂璺宠浆鍒拌繃绋嬩腑鐨勬煇涓綅缃(4) On Error ...
绛旓細鏂规硶1:浣跨敤VBA鐨凪kDir璇彞鍒涘缓鏂囦欢澶广備唬鐮佸涓嬶細Sub xyf()On Error Resume Next VBA.MkDir ("c:/渚嬪瓙")End Sub 鍏朵腑 VBA.MkDir ("c:/渚嬪瓙")琛ㄧず鍦–鐩樺垱寤轰竴涓悕涓衡滀緥瀛愨濈殑鏂囦欢澶 On Error Resume Next璇彞琛ㄧず濡傛灉宸茬粡鏈夎繖涓枃浠跺す锛屽垯涓嶅垱寤恒傚涓嬪浘鎵绀猴細2 鏂规硶2锛氫娇鐢‵ileSystemObject...
绛旓細excel2007鍒涘缓骞浣跨敤VBA浠ｇ爜鐨勬搷浣滄暀绋嬬偣鎸夎鍥惧伐鍏锋爮visualbasic銆傜晫闈笂浼氬嚭鐜皏isualbasic宸ュ叿鏉★紝鎷栧姩宸ュ叿鏉″乏渚у埌涓婃柟鏉惧紑榧犳爣锛岀劧鍚庣偣visualbasic缂栬緫鍣ㄣ傝繘鍏isualbasic鐣岄潰鍚庣偣鎸夎彍鍗曟爮鎻掑叆妯″潡寮瑰嚭妯″潡鐣岄潰銆傝緭鍏ヤ竴娈典唬鐮佸鍥剧孩妗嗘墍绀恒傜偣鎸夎彍鍗曟爮杩愯杩愯瀛愯繃绋/鐢ㄦ埛绐椾綋F5銆傚湪寮瑰嚭鐨勫璇濇涓緭鍏ヤ竴涓...
绛旓細If Cells(1, 1) <> "" Then MsgBox "鍗曞厓鏍间笉涓虹┖"End Sub 3銆乮f鈥︹hen鈥︹nd if缁撴瀯 璇ョ粨鏋勭敤浜庡崟閫夋嫨鍒ゆ柇璇彞鎵ц锛屽叿浣撶敤娉曠湅涓嬮潰瀹炰緥銆傚疄渚嬶細瀵逛簬绗竴鍒楃殑绗竴琛屽埌绗崄琛屽崟鍏冩牸锛屼綔濡備笅鍒ゆ柇锛屽鏋滃崟鍏冩牸涓虹┖鍊间簡閭ｄ箞鍦ㄧ浉搴旂殑绗簩鍒楀崟鍏冩牸杈撳嚭鈥VBA鏁欑爺瀹も濄傜▼搴忥細Sub 鍒ゆ柇璇彞()Dim...
