1樓：永恆卍之月
cells(i,colnum)是什麼鬼？baiworkbooks(" & wb1.name & ")這是什麼鬼？wb1.name是否包含
du文zhi件字尾比如.xls或者dao.xlsx，亦或者.xl**？ 如果沒版
有執行估計要下權標越界！
如果你要直接返回一個算術結果值"= cells(i,num1+3)/workbooks(" & wb1.name & ").worksheets(sheets1).
cells(i,colnum)"是什麼意思？為什麼不直接打成cells(i, num1 + 5) = cells(i,num1+3)/workbooks(" & wb1.name & 「.
目標檔案字尾名」& ").worksheets(sheets1).cells(i,colnum)"
如何用vba在excel中寫入公式
2樓：鄭浪啪
用vba在excel中寫入公式的方法：
把提取字元的公式寫入sheet2單元格
sub aa()
sheet2.range("a1").formula = "=left(sheet1!a1,5)"
end sub
直接把結果寫入sheet2單元格
sub aa()
sheet2.range("a1").value=left(sheet1.range("a1").value,5)
end sub
vba主要能用來擴充套件windows的應用程式功能，特別是microsoft office軟體。它也可說是一種應用程式視覺化的 basic 指令碼。
3樓：匿名使用者
把提取字元的公式寫入
sheet2單元格
sub aa()
sheet2.range("a1").formula = "=left(sheet1!a1,5)"
end sub
直接把結果寫入sheet2單元格
sub aa()
sheet2.range("a1").value=left(sheet1.range("a1").value,5)
end sub
4樓：匿名使用者
private sub workbook_activate()
sheets(2).cells(1, 1).value = mid(sheets(1).cells(1, 1).value, 1, 5)
end sub
5樓：匿名使用者
sheets("工作表2").range("a1") = mid(sheets("工作表1").range("a1") ,1,5)
6樓：伍雄**
高效辦公，可以考慮一下python，vba在大規模資料下蠻躊躇的
excel vba 把某個單元格cells(1,1)的公式下拉到cells(100,1)怎麼寫?
7樓：匿名使用者
像這樣復就可以制:
sub 巨集1()
for i = 1 to 100
cells(i, 1) = 1
next
end sub
裡面的=1就是你說的公式,cells(i,1)的最終結果就是1到100行都填充這個公式
8樓：陽光上的橋
下面的**就可以內
：sub 巨集容1()
range("a1").select
selection.autofill destination:=range("a1:a100"), type:=xlfilldefault
range("a1:a100").selectend sub
Excel公式咋寫,Excel公式怎麼寫
1.5 以下 bai呢?1.6 至du1.51 怎麼倒著數?5 以下不是都說過了zhi嗎?5 以上呢?然後,你要dao幹什麼呢?猜題邏輯 1.51 返回值 回答1 1.51 且 1.62 返回值2 1.63 且 1.84 返回值3 1.84 且 2 返回值4 2 且 3 返回值5 3 且 4 返回值...
VB中註釋語句怎麼寫，VB中怎樣進行註釋？
二種方法 一為，在註解前加上 rem 如 rem 這是一個註解語句，你愛怎麼寫就怎麼寫二為，在註解前加上 如 這也是一個註解語句 但這二個有點小區別，如果用 rem 的話，不是在語句的開頭時，必須在語句前加上冒號，如下 a 1 rem 這是個語句 而用 則不要，如下 b 1 這也是個註解語句 寫個這...
excel的公式怎麼寫？
在不同頁面內，建了8月，9月，10月，11月，12月，這幾個月的表它們分別在sheet1 sheet5工作表內，想把這幾個表的b5項都加起來，一樣可以使用引用方法的。在你總計的格仔裡，先輸入 號，然後開啟你的8月的頁面，點選b5單元，就引入了這個資料了 然後輸入加號，再開啟你的9月的頁面，點選b5單...