1樓:匿名使用者
比如在a1:a10中輸入公式為b列+c列
sub 公式()
for i = 1 to 10
range("a" & i) = "=b" & i & "+c" & i
next
end sub
2樓:匿名使用者
問題bai不是du太清楚zhi,下面
dao的參回考吧!!答
for i = 1 to 100
for j = 1 to 100
activecell.formular1c1 = "=r[" & i & "]c[" & j "]"
next
next
excel vba中如何對含迴圈變數單元格區域求平均值?
3樓:匿名使用者
這種寫法肯定是錯誤的。
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。
所以要改,你要注意兩點:
4樓:匿名使用者
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中如何給單元格輸入公式
5樓:匿名使用者
sub lf()
range("b12").formula = "=if(h2=c2,"""",""資料不一致"")"
'cells(2, 12).value = "=if(h2=c2,"""",""資料不一致"")"
end sub
6樓:復仇之牙
cells(2, 12).formula = "=if(h2=c2,"""",""資料不一致"")"
7樓:你好麼閔明
我不知道vba是啥,但我知道巨集**vb語言裡,h2=c2是有問題的,你要找到相對位置 ,用r[10]c[10]這樣描述,比如你要填寫答案的格子是i2,那麼h2的相對位置是rc[-1]
8樓:莫道枉然
cells(2, 12) = "=if(h2=c2,"""",""資料不一致"")"
9樓:q扣
sub s()
for k = 28 to 46 step 6for i = 1 to 5
for j = 1 to 6
cells(k + i, 19 + j) = "=" & chr(83 + j) & 54 + i
next
next
next
end sub
10樓:小p變磚頭
你可以用excel錄製vba的巨集 他的解決方案是用rc表示式代表單元格 然後給單元格複製=if(h2=c2,"","資料不一致") 。具體rc表示式怎麼拼寫 忘記了
在excel的vba中如何給單元格輸入公式
sub lf range b12 formula if h2 c2,資料不一致 cells 2,12 value if h2 c2,資料不一致 end sub cells 2,12 formula if h2 c2,資料不一致 我不知道vba是啥，但我知道巨集 vb語言裡，h2 c2是有問題的，你要...
VBA判斷單元格是否包含字元EXCEL
舉例說明，有兩個單元格 a1 存放abc a2 為空白。設計一個vba程式，判定a1和a2是否為空白，並將結果放在b1 放a1的結果 和b2 放a2的結果 如下 sub判定 dimm s asstring dimm t asinteger dim結果 asstring dimi asinteger ...
vba單元格值
許多字元，比如 lihanru8321 這樣的，然後看裡面有沒有h a n，最後提示有沒有的意思吧 sub temp dim cell as range dim i as integer,fa as boolean,fb as boolean set cell range a1 fa false f...