1樓：office之門
建議修改兩個地方：
一、工作表的迴圈。
for each she in
加上此行，工作表才會切換。
二、提高速度。
1、省略單獨選擇單元格步驟，直接刪除指定的行。
range之前要加上指定的工作表，否則總是在一張工作表內執行。
2、關掉螢幕重新整理。
false結束迴圈後，再開啟螢幕重新整理。
2樓：
這段 vba **效率比較低下，特別是使用 select 語句！
建議試試看：
dim sht as worksheet, i as long; '工作表的行號是 long 型資料。
false ' 禁止螢幕重新整理。
for each she in
with she
for i = 2000 to 2 step -1if (.cells(i, 2) >11) or (.cells(i, 21) =1) or (.
cells(i, 3) =0) then ' 因為使用了 with 語句，. 符號前面預設就是 she 工作表。 cells(i, 2) 表示第 i 行 第 2 列交叉處的單元格，即 b列第 i 行的單元格。
同理 cells(i, 3) 表示第 i 行第 3列 （即 c 列）交叉處的單元格。cells(i, 21) 表示第 i 行第 21列（即 u 列）交叉處的單元格。
rows(i).delete
end if
next i
end with
next she
true '恢復螢幕重新整理。
用vba**批量將所有sheet裡的列調整到最佳列距。
3樓：陽光上的橋
用下面的**試試看：
sub 自動調整列距()
dim i as integer
for i = 襲困1 to
sheets(i).
態寬 next i
end sub
你的**基本上是對的，只有拍閉念兩個小問題：(1)修改為(i)，否則只調整第乙個表，另外**不能在工作表裡面，只能放在模組裡面。
如何批量修改vba excell物件的 sheet2，sheet3 ....為 sheet1 ,sheet2....
4樓：公尺寶麻麻
sheet1，sheet2……這些貌似不能改的，都是excel自動的。
請問樓主修改sheet編號的目的是什麼？也許還有其他途徑來達到相同的目的。
如果要針對某個sheet執行巨集，可以使用你自定義的sheet名稱，如「彙總」，「零首付」等。
**："彙總")
這樣不管sheet的標號怎麼變，都不會影響巨集的執行了。不知是否符合樓主的意思。
excel vba,求批量更改各個excel的單個工作表名稱
5樓：網友
答：可以。
複製下面**到vb器裡，執行"modifysheetname"程式。程式會彈出對話方塊來讓你選擇檔案，修改完成後儲存在原位置。
求批量修改同一工作簿的所有工作表名稱為每乙個工作表的同一單元格的資料的vba~~~~
6樓：閒拉呱
sub 命名()
dim a as worksheet '我是變數a，屬於工作表型別for each a in worksheets '所有的我，都在這個工作簿中。
a1") '麻煩您把我的a1裡的內容，當做我的名字，送給我吧next '乙個個都迴圈完了，麻煩您歇歇吧end sub '謝謝您！祝您晚安！
7樓：網友
**：sub 改名()
for each sht in
sht.[a1] '每個sheet的a1單元格next
end sub
vba怎樣用for語句給每個工作表批量建立表頭
8樓：網海1書生
for s = 1 to 4
sheets("sheet" & s).range("a1") = 姓名。
sheets("sheet" & s).range("b1") = 學號。
sheets("sheet" & s).range("c1") = 成績。
next或者for each s in sheets"a1") = 姓名。
b1") = 學號。
c1") = 成績。
next
VBA請問在EXCEL中如何批量插入行
sub charuhang 你所說的假設選中哪一列，其實，插入行和選中的列不相關，有用的資訊是你所選中的行 起止行號 start inputbox 請輸入要插入行的起始行號 3 end inputbox 請輸入要插入行的終止行號 26 h inputbox 請輸入要插入行數 2 for i end ...
VB批量處理中的資料，VB批量處理txt中的資料
有償給你寫出程式 需要聯絡。利用vb讀取txt檔案中的資料並輸出 150 這個我可以給你做。讀寫檔案的事情而已 1,1 1,2 表示什麼，不清楚。怎麼用vb批量處理乙個文字，去掉每一行中 後面的內容 批量讀取txt中指定字元後資料到 中，可使用vb或matlab dim shu as string ...
vba從sheet1中挑選出符合條件的單元格將內容複製到sheet2中怎麼做
sub test 假設sheet1的a列從第一行開始有資料，以下就可以實現for i 1 to sheet1.cells 1,1 end xldown row if sheet1.cells i,1 interior.colorindex xlnone then sheet1.cells i,1 c...