1樓：匿名使用者
用陣列運算，應該能快點，不過，應該連條件也用陣列，我很懶，只是改了一點，如下：
sub time()
dim r, c as integer, a, b, aa
r = worksheets("時間").usedrange.rows.count
c = worksheets("時間").usedrange.rows.count
redim aa(4 to r, 4 to c)
msgbox r
msgbox c
for a = 4 to r
for b = 4 to c
aa(a, b) = abs(sheets("時間").cells(2, b) - sheets("時間").cells(a, 2))
'sheets("時間").cells(a, b).formular1c1 = "=abs(r2c-rc2)"
next
next
sheets("時間").cells(4, 4).resize(r - 3, c - 3).value = aa
end sub
2樓：匿名使用者
sub time減() '名字最好別搶用
dim r, c as integer
r = worksheets("時間").usedrange.rows.count
c = worksheets("時間").usedrange.columns.count '列不是行
msgbox r
msgbox c
' for a = 4 to r
' for b = 4 to c
' sheets("時間").cells(a, b).formular1c1 = "=abs(r2c-rc2)"
' next
' next
worksheets("時間").range(worksheets("時間").cells(4, 4), worksheets("時間").
cells(r, c)) = "=abs(r2c-rc2)"
end sub
excel vba 如何定義單元格變數,並賦值
public sub 測試 dyg sheet1.range b2 value end sub 太極健 物件就是的賦值，必需使用set語句 public sub 測試 dim dyg as range set dyg range b2 end sub 你完全可以不用定義為單元格物件，直接賦值不就行了...
excel vba應用 如何讓單元格隨時間變化而自動變化顏色
設條件格式應該可以吧！excel不會根據時間自動計算，必須啟用，即便是vba也得執行下面的思路，b列輸入函式 直接設在條件格式中，好像不行 c列 b列，將c列公式下拉相當於啟用公式。設定條件格式，如果b列位true，a列的顏色變化 下面的and函式中得條件知設定了部分。a b c 2011 9 21...
excel vba 如何將單元格的值，同步顯示在窗體中的la
步驟如下 sheet1的a1 a10中有如下內容 插入窗體，並插入乙個核取方塊 雙擊窗體，新增如下 按f5執行 結果如下 form1.label1.caption cells i,j form1.text1.text cells i,j 一般有窗體的情況下，vba 是直接寫在窗體的 中的。這時候，f...