1樓：廈門侯玩轉電子科技
簡單的迴圈
sub test()
dim i as long
dim endrow as long
endrow = range("a" & rows.count).end(xlup).row '獲取末行
if endrow < 1 then exit sub
for i = 1 to endrow-1
if trim(range("a" & i).value) = "" then
end if
next i
end sub
或者sub test()
dim i as long
dim endrow as long
endrow = range("a" & rows.count).end(xlup).row '獲取末行
if endrow < 0 then exit sub
for i = 1 to endrow
if trim(range("a" & i).value) = "" then
end if
next i
end sub
二段**，前面是f1=(=a2&b2&c2)，後一段是f1=(=a1&b1&c1)
2樓：匿名使用者
for i=1 to cnt
for ii=0 to 15
cells(i,de + ii).formula=cells(i,dem + 8 * ii)
cells(i,dk + ii).formula=cells(i,dkm + 8 * ii)
next ii
next i
3樓：匿名使用者
dim j as long
***for i=1 to cnt
cells(i,de)=cells(i,dkm)cells(i,dk)=cells(i,dkm)for j=1 to 15
cells(i,de+j).formula=cells(i,dem+8*j)
cells(i,dk+j).formula=cells(i,dkm+8*j)
next
next***
excel用vba將單元格數值存入陣列
4樓：12345額時代
1、首先開啟乙個excel的檔案，在**中輸入簡單的**，比如學生身高**，如下圖所示。
2、接著，在**中輸入一維陣列的說明文字，滑鼠左鍵單擊【開發工具】選單標籤，在vba控制項下拉列表中，並選擇按鈕控制項，如下圖所示。
3、 然後，在**中繪製出按鈕控制項，並修改控制項名稱，比如使用一維陣列的名稱，如下圖所示。
4、接著，選擇按鈕控制項，並滑鼠左鍵單擊【檢視**】按鈕，如下圖所示。
5、然後，在**視窗中輸入vba語句，比如輸入定義一維陣列的語句，並給一維陣列賦值，如下圖所示。
6、接著，在**視窗中，輸入一維陣列給單元格賦值的vba語句，如下圖所示。
7、最後，在設計視窗上，滑鼠左鍵單擊按鈕，可以看到**中的，通過vba程式的一維陣列，並輸出到身高的單元格中，顯示出資料了，如下圖所示。
5樓：匿名使用者
使用redim動態陣列即可。
sub test1()
dim a() as integer, irow as long, i as integer
irow = cells(rows.count, 1).end(xlup).row
redim a(irow - 1)
for i = 1 to ubound(a)a(i - 1) = range("a" & i)next
end sub
6樓：魚木混豬喲
**及註釋如下：
sub main()
x = range("a65536").end(3).row'x的值為a列中最後乙個非空單元格行號
redim a(x)'重新定義陣列a，使之上限為xfor i = 1 to x『i從a1依次往下迴圈，直到最後一行a(i - 1) = range("a" & i)'將a列單元格值依次存放於陣列中
next
end sub
7樓：匿名使用者
使用worksheetfunction直接實現。
dim arr
arr = worksheetfunction.transpose(range("a2:b14")）
『arr就是乙個二維陣列arr(1 to 2, 1 to 13)msgbox arr(2,1)
8樓：匿名使用者
for i=1 to range("a65536").end(xlup).row-x
x表示a列起始資料單元格的行號-1
excel 用vba怎麼迴圈給100萬個單元格賦不同值
9樓：陽光上的橋
**改了一下，應該快很多，你自己試試看：
sub 生成()
dim i,j,n, arr(2 to 1001, 2 to 1001)
n = 0
for i = 2 to 1001
for j = 2 to 1001
n = n + 1
arr(i,j) = n
next
next
sheets("地圖").cells(2, 2).resize(1000,1000) = arr
end sub
excel vba中如何對含迴圈變數單元格區域求平均值？
10樓：匿名使用者
這種寫法肯定是錯誤的。
sheet2.range(cells(i - 10, j - 10), cells(i + 10, j + 10)))
雖然你的range加了sheet2限定語
句，但是後面的cells(i-10,j-10),cells(i+10,j+10)都沒有加限定語句，如果你的**是在sheet3工作表中，那麼就表示sheet3.cells(i-10,j-10)了。
再則，當i=1的時候，i-10=-9，那麼這樣的單元格是不存在的。最小單元格行只能是1，列也是1。
所以要改，你要注意兩點：
11樓：匿名使用者
sheet2.range(cells(i - 10, j - 10), cells(i + 10, j + 10)))
改sheet2.range(cells(i, j ), cells(i + 10, j + 10)))
當i與j在10以下就出錯了。
EXCEL VBA批量替換單元格內容
如果我只要替換one的內容，其他內容保持不變，該怎樣來寫？辦法如下，先找個英語翻譯的庫，你自己做成適當的資料庫，英文與中文各為乙個資料字段 用vba查詢資料庫，找到對應的，把對應的中文寫進去，比如 在範圍 a1 d100 把下面 拷貝到後台巨集，按f5執行就okpublic sub test for...
Excel vba把某個單元格cells 1,1 的公式下拉到cells 100,1 怎麼寫
像這樣復就可以制 sub 巨集1 for i 1 to 100 cells i,1 1 next end sub 裡面的 1就是你說的公式,cells i,1 的最終結果就是1到100行都填充這個公式 下面的 就可以內 sub 巨集容1 range a1 select selection.autof...
在中如何將單元格拆成單元格,在WORD中如何將單元格拆成四個單元格
具體步驟 1 選中需要拆分的單元格。2 右鍵選擇拆分單元格。3 出現的對話方塊列數寫4 行數選1就可以了。方法很多，最簡單的就是直接畫，但是輸入文字就有點麻煩了，要畫文字框！滑鼠放到要拆分你的單元格裡，單擊右鍵，選擇拆分單元格 滑鼠右鍵點選被拆分單元格，在彈出選單選 拆分單元格 然後你要是想分成4個...