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)插入變數，選擇不連續單元格區域的問題
VBA多陣列賦值問題
只能用迴圈 dim i as integer for i 0 to ubound arr1 if arr2 1,i then arr1 1,i arr2 1,i if arr3 1,i then arr1 1,i arr3 1,i next e3 resize i 1,1 arr1 willenhu...
VBA程式設計中關於工作表自動迴圈執行的問題
解0人 簡單問題被你搞複雜了吧？sub 工作表 dim x,y,z z worksheets.count for x 1 to z if worksheets x name 某某 then 不是某某 時才執行下面，否則就不執行嘛 操作end if next end sub dim x y as wo...
在VBA的For eachNext迴圈語句中,定義範圍的工作簿名稱使用問題
for each 迴圈抄語句的含義是這樣襲的 for each 元素bai du in 集zhi合 其中 元素 和 集合 必需是相對應的，dao工作表元素 worksheet 就要對應工作表集合 worksheets 單元格元素 cell range 就要對應單元格集合 range 依此類推。當應用...