1樓：匿名使用者
sub pick_sort()
dim d0d as integer
dim j as integer
j = 1
d0d = range("ver!bb3").valueif d0d < 1 then exit subif range("ver!bb6").value >= 1 then
range("a" & j & ":r" & d0d).selectselection.copy
workbooks.add
range("a1").select
activesheet.paste
end if
加句話，變數可能是小於1了
2樓：匿名使用者
樓上**應該可以了但可以優化.
3樓：
在您原有基礎上作了一下微調，應能符合您的要求：
sub pick_sort()
dim d0d as integer
dim j as integer
j = 1
d0d = sheets("ver").range("bb3").value
if sheets("ver").range("bb6").value >= 1 then
range("a" & j & ":r" & d0d).selectselection.copy
workbooks.add
activesheet.paste
end if
end sub
不過根據具體情況，您的**還可優化。
希望能夠幫到您。有其它任何問題請隨時hi我。
excel vba 問題？“ range("a" & h).select ”這個單元格選擇的是什麼？
4樓：匿名使用者
往前檢視**h這個變數是什麼值，一般這個是變數，會根據**的執行，取值不同！你可以調出本地視窗，按f8一步一步執行，本地視窗會有這個變數的值的變化！
關於excel vba 中 range（cells,cells).select 的問題?
5樓：匿名使用者
sheet2.select
sheet2.range("a1:d4").select
6樓：匿名使用者
我有一個辦法，以前我自己用過
當然比較笨，那就是把("a1:d4").中的a,d用開始你指定的（1，1）（4，4）通過數值轉化字母的方式進行轉化
7樓：匿名使用者
private sub commandbutton5_click()worksheets("sheet2").selectworksheets(2).range("a1:
d4").select
end sub
8樓：匿名使用者
sub 選中區域()
sheet2.select
range("a1:d4").selectsheet1.select
end sub
9樓：商珧玉俊名
你應該用
private
subcommandbutton5_click()range("a1:b4,d1:e4").selectendsub
vba中range(cells,cells)插入變數，選擇不連續單元格區域的問題
ACCESS巨集和VBA的問題，ACCESS 巨集和VBA的問題
vba主要是用在microsoft office中，其中excel,word,ppt用的比較多，他可以把使用者手動，及迴圈操作轉換為程式自動操作，vba其實很好學，也很有意思，我們公司主要做excel vba開發的 下面是一本教你如何用vba在excel開發的書，很不錯的，你可以看看，我是在當當網上...
請幫忙，很急，vba資料填充問題
這裡有兩處錯誤 第一 在vba 中表示單元格可以用range a1 f4 這樣的方式來表示從a1到f4這樣乙個區域，也可以用cells 1,4 來表示d1這個單元格，也就是第一行，第4列這個單元格，也可以用range cells 1,1 cells 4,6 來表示從a1到f4這樣乙個區域，具體的應用...
請用VBA解決excel車輛限號問題
此vba比效率高，呵呵。不用跑65536次，有多少個號就跑多少次。超出65536的也可以。sub 限號 i 2 do while cells i,1 車牌 cells i,1 尾號 right 車牌,1 if worksheetfunction.isnumber 尾號 then 尾號 mid 車牌,...