1樓：
for i = 7 to counta + 7
if sheets("summarize").cells(i, 25) = "y" then
a=sheets("summarize").cells(i, 1)
b=sheets("summarize").cells(i, 2)
c=sheets("summarize").cells(i, 3)
d=sheets("summarize").cells(i, 6)
e=sheets("summarize").cells(i, 4)
f=sheets("summarize").cells(i, 24)
g=sheets("summarize").cells(i, 7)
sheets("annual test").cells(x, 1) = a
sheets("annual test").cells(x, 2) = b
sheets("annual test").cells(x, 3) = c
sheets("annual test").cells(x, 4) = d
sheets("annual test").cells(x, 5) = e
sheets("annual test").cells(x, 6) = f
sheets("annual test").cells(x, 7) = g
x = x + 1
ncount = ncount + 1
end if
next i
減少工作表來回跑的時間，以上**修改後試試。
2樓：
用陣列的方法,大致是這樣
sub button2_click()
sheets("annual test").range("a3:g2002").clear
dim counta as integer, arr1(1 to 10000000, 1 to 7)
counta = sheets("summarize").cells(6, 29)
dim ncount as integer, i as integer, x as integer, arr
arr = sheets("summarize").cells(7, 1).resize(counta + 7, 30)
for i = 1 to counta
if sheets("summarize").cells(i, 25) = "y" then
x = x + 1
arr1(x, 1) = arr(i, 1)
arr1(x, 2) = arr(i, 2)
arr1(x, 3) = arr(i, 3)
arr1(x, 4) = arr(i, 6)
arr1(x, 5) = arr(i, 4)
arr1(x, 6) = arr(i, 24)
arr1(x, 7) = arr(i, 7)
ncount = ncount + 1
end if
next i
sheets("annual test").cells(3, 1).resize(x, 7) = arr1
end sub
excel vba **優化問題請教
3樓：匿名使用者
如果有規律可循，可以用迴圈語句。
如果沒有規律，那也只能一條一條地寫。
excel vba**優化方法
4樓：匿名使用者
arr=range("s1:s320")
brr=range("a1:a5600")crr=range("b1:b5600")for b = 1 to 320
buyselltime = val(left(arr(b,1), 8))
for bb = 3 to 5600
if buyselltime = val(brr(bb,1)) then
range("t" & b).value = val(crr(bb,1))
exit for
end if
next
next
5樓：匿名使用者
range("s" & b).這個改成cells(b,"s"),其它的幾個地方也改一下，應當能快些。
另外資料先讀取到陣列，處理的結果也放到陣列，最後再寫進去也可能會快些。
低配置電腦優化問題，如何優化低配置電腦
正如360所說的！補丁不是打得越多越好，根據你的電腦需要來打！至於軟體不同，打的補丁也不同！他們分析的問題的不同，所以不相同 至於用那種軟體來打 我本人還是習慣拿360.優化！必要的時候用超級兔子 同時執行可能會存在一點衝突！比如超級兔子 有乙個密碼檢視器，360會查 出他是乙個木馬程式，但這個程式...
excel字母和數字對應的問題，請問excel怎麼實現字母和數字的對應關係？
你好！如果功能比較簡單，可以試著使用函式公式求解 功能有限 如果比較複雜，還是建議樓主使用vba程式處理。示例 使用函式公式處理，在b1單元格裡面輸入公式 choose sum a1 1,11,111 將所有字母一列，姑且稱為原列 複製到另外一列，如b列選擇b列 ctrl h，查詢替換 如圖所示 依...
關於excel函式的問題高手進，關於Excel乙個函式的問題 高手進
1 兩個函式的語法不同，rand 不需要任何引數，而randbetween 則必須要兩個整數值的引數 2 計算結果不同，rand 生成的是0 1之間的任意數，整數的個數最多只能有兩個，而randbetween 本身就是兩個數間的整數，不生成小數。3 結果重複程度不一樣，rand 生成的是不重複隨機數...