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)插入變數，選擇不連續單元格區域的問題
懂EXCEL的VBA程式設計的進來，小問題
1 新建一excel檔案，內容如 線間所示 日期 內容 2007 9 10 i 2007 9 11 a 2007 9 11 b 2007 9 11 c 2007 9 11 d 2007 9 11 e 2007 9 11 f 2007 9 11 g 2007 9 11 h 2007 9 23 j 2 ...
excel的VBA問題 建立巨集，要求輸入學生人數以及各個
總分 平均分用公式更好吧。除非公式無法完成，或者完成的效果不好 速度慢 被修改 否則就不要用vba。弗爾佈雷斯 的回答已經實現基本的內容，如果你想要介面化的東西，可以追問我。excel vba怎樣在點選按鈕後，彈出一個輸入密碼的對話方塊，密碼正確的話執後續程式段，否則結束 excel高手改寫vba加...
vba陣列賦值，VBA陣列的定義與賦值
1 開啟一個excel的檔案，在 中輸入簡單的 比如學生身高 如下圖所示。2 接著，在 中輸入一維陣列的說明文字，滑鼠左鍵單擊 開發工具 選單標籤，在vba控制元件下拉選單中，並選擇按鈕控制元件，如下圖所示。3 然後，在 中繪製出按鈕控制元件，並修改控制元件名稱，比如使用一維陣列的名稱，如下圖所示。...