1樓：匿名使用者
工作表名稱上點右鍵選檢視**,彈出視窗貼上以下**sub 資料計算()
dim arr()
n = [b65536].end(xlup).rowarr = worksheetfunction.
transpose(range(cells(1, 2), cells(n, 2)).value)
for i = 1 to ubound(arr) - 1if arr(i) > arr(i + 1) thenm = arr(i) - arr(i + 1)for h = i + 1 to ubound(arr)arr(h) = arr(h) + m
next
end if
next
range("c1").resize(ubound(arr), 1) = worksheetfunction.transpose(arr)
end sub
2樓：匿名使用者
sub 資料計算()
sheets("sheet1").selectrs = range("b65536").end(xlup).
rowwith range("b1:b" & rs)arr = .value
for r = 2 to rs
t = arr(r - 1, 1) - arr(r, 1)if t > 0 then
for i = r to rs
arr(i, 1) = arr(i, 1) + tnext
end if
next
.value = arr
end with
end sub
3樓：匿名使用者
sub test()
dim n as long, arr()
n = sheet1.range("a65536").end(xlup).row
redim arr(1 to n)
arr = worksheetfunction.transpose(sheet1.range("a1:a" & n).value)
for i = 2 to n
if arr(i) < arr(i - 1) thenarr(i) = arr(i - 1)
end if
next i
sheet1.range("a1:a" & n) = worksheetfunction.transpose(arr)
end sub
你那個a列的例子舉的數太少了，看不出你是怎麼變的，多舉幾個看看
關於企鵝的資料，企鵝的資料簡單介紹
企鵝 學名 spheniscidae 有 海洋之舟 美稱的企鵝是一種最古老的遊禽，它們很可能在地球穿上冰甲之前，就已經在南極安家落戶。全世界的企鵝共有17種，大多數都分佈在南半球。主要生活在南半球，屬於企鵝目，企鵝科。特徵為不能飛翔 腳生於身體最下部，故呈直立姿勢 趾間有蹼 蹠行性 其他鳥類以趾著地...
請問如何用VBA將EXCEL檔案中的資料複製到別EXCEL檔案相同的位置
sheet1的區域a1 c3拷貝到sheet2的區域a1 c3 sheet1.range a1 c3 copy sheet2.range a1 c3 丙雅弘雨凝 sub aaa dim sh1 as worksheet dim sh2 as worksheet set sh1 workbooks 1...
Excel如何用VBA實現表資料格式轉換
這個實現起來不難，主要是程式的控制，試試下面的 sub zz dim ar,a b n t a array 3,7,11 b array 6,10,15 ar sheets 1 a1 currentregion.value redim c 1 to ubound ar 1 ubound b 2 1 ...