1樓：真真真白丁
都已經用vba了，還在單元格寫公式，感覺很彆扭……不過**如下：
private sub worksheet_change(byval target as range)
on error resume next
if target.column >= 3 and target.column <= 5 then
range("f" & target.row).formula = "=if(countif(b$1:
b" & target.row & ",b" & target.row & ")=countif(b:
b,b" & target.row & "),countif(b:b,b" & target.
row & "),"""")"
end if
end sub
2樓：匿名使用者
用錄製巨集的方式，可以看到輸入的**。
如何用vba在excel中寫入公式
3樓：鄭浪啪
用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 指令碼。
4樓：匿名使用者
把提取字元的公式寫入
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
5樓：匿名使用者
private sub workbook_activate()
sheets(2).cells(1, 1).value = mid(sheets(1).cells(1, 1).value, 1, 5)
end sub
6樓：匿名使用者
sheets("工作表2").range("a1") = mid(sheets("工作表1").range("a1") ,1,5)
7樓：伍雄**
高效辦公，可以考慮一下python，vba在大規模資料下蠻躊躇的
請教關於excel裡面的問題，請教關於excel裡面的一個問題
設原資料在a到c列，且a列第一個 2 在a1單元格，則在d1輸入 offset a 1,int row a3 3 1,mod row a3 3 下拉填充 選中d列並複製 滑鼠右鍵單擊選中區域 選擇 選擇性貼上 勾選 數值 單擊 確定 在e列輸入升序的序號 對d列資料進行篩選，條件為 0 刪除這些資料...
php新手請教 php寫入mysql問題
insert into tb tina values liu liuliuliuliu 改成 insert into tb tina values liu liuliuliuliu 或 insert into tb tina values null,liu liuliuliuliu 主鍵不用賦值或為...
請教個excel公式,請教一個Excel公式，越簡單越好
r1輸入 iferror all h1 o1,column a1 右拉 下拉 注意 如果是低版本的office，會因為沒有iferror函式而顯示name錯誤。可將公式替換為 all h1 o1,column a1 請教個excel公式 不明白餘數歸類是什麼意思，看你的結果，似乎是s列的數字每一位與...