1樓：匿名使用者
sub lf()
range("b12").formula = "=if(h2=c2,"""",""資料不一致"")"
'cells(2, 12).value = "=if(h2=c2,"""",""資料不一致"")"
end sub
2樓：復仇之牙
cells(2, 12).formula = "=if(h2=c2,"""",""資料不一致"")"
3樓：你好麼閔明
我不知道vba是啥，但我知道巨集**vb語言裡，h2=c2是有問題的，你要找到相對位置 ，用r[10]c[10]這樣描述，比如你要填寫答案的格子是i2，那麼h2的相對位置是rc[-1]
4樓：莫道枉然
cells(2, 12) = "=if(h2=c2,"""",""資料不一致"")"
5樓：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
6樓：小p變磚頭
你可以用excel錄製vba的巨集 他的解決方案是用rc表示式代表單元格 然後給單元格複製=if(h2=c2,"","資料不一致") 。具體rc表示式怎麼拼寫 忘記了
如何用vba在excel中寫入公式
7樓：鄭浪啪
用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 指令碼。
8樓：匿名使用者
把提取字元的公式寫入
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
9樓：匿名使用者
private sub workbook_activate()
sheets(2).cells(1, 1).value = mid(sheets(1).cells(1, 1).value, 1, 5)
end sub
10樓：匿名使用者
sheets("工作表2").range("a1") = mid(sheets("工作表1").range("a1") ,1,5)
11樓：伍雄**
高效辦公，可以考慮一下python，vba在大規模資料下蠻躊躇的
在excel中如何使用vba的巨集
保護公式可以這樣 選擇不需要保護 需要錄入內容 的單元格，設定單元格屬性，最後一個 保護 卡里面的 鎖定 取消，其它那些沒有取消鎖定的有公式的單元格自然是鎖定狀態。下一步是在工具 審閱 新版本 或者 工具 選單 舊版本 裡面選擇 保護工作表 設定一個密碼後確認。完成這兩步之後，鎖定的單元格內容就無法...
vba如何去呼叫另excel中的function,注意
function 自定義函抄 數，只能在當前 工作襲簿中使用 如果本bai電腦上都想用du，建議儲存為個人zhi巨集，以後本電腦上的工作薄dao都可以使用 function可以向其他函式一樣，正常呼叫即可function ms tt msgbox tt end function sub tets m...
請問如何用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.xls s...