1樓：匿名使用者
如果你圖4中並沒有涉及到公式的列，那只是因為你沒有設定公式而並非清除了公式（也就是說如果你圖4中不涉及對公式列的修改就行了），當然你可以在你圖四中，對那些公式的列同樣的加入公式就行了，比如性別是從身份證號提取的，那就可以在圖4的身份證號後面加一行
sheets("資訊彙總表女","男")"
其它的也都是一樣的，要麼不處理，要麼加公式。
2樓：明佳妙明
if cells(x, y).hasformula = false then
填寫你語句
end if
excel某資料變動自動填到其它不同單元格
3樓：巴宛凝
sheet3當中按鈕**不用寫，直接指定模組當中的那個過程就行了，只是，需要稍微修整一下**，把所有沒有指定的range改成sheet2.range 把所有cells改成 sheet2.cells即可，當然了，具體情況，需要你公示**，才好改的
關於vba的問題？ 5
4樓：苗喬恩
前面的引號和前面的前面是一對。
後面的引號和後面的和麵是一對。
5樓：勒粵嘟呀戲
你寫的format 將日期轉化成了文字格式了~
vba中的問題？
6樓：思雪遙遙
sub test()
dim i, j as integer
dim arr(1 to 9)
j = 1
for i = 1 to 9
if sheet1.cells(3, i) <> 0 thenarr(j) = sheet1.cells(3, i)j = j + 1
end if
next
[a1] = vba.join(arr)
end sub
7樓：excel與財務
把**[a1] = vba.join(arr)改成【第三行中不為零的單元格】為什麼要用陣列呢？下面**是不是更簡單些呢
sub test()
dim i as integer
for i = 1 to 9
if sheet1.cells(3, i) <> 0 then[a1] = [a1] & " " & sheet1.cells(3, i)
end if
next
end sub
關於vba程式設計的問題
8樓：匿名使用者
workbooks("工參.xlsx")
是不是當前工作薄？
關於vba問題
9樓：表裡如一
n = range("a2").end(x1toright).column
你的這句話裡面的引數x1toright錯了.是xltoright,不是數字1
10樓：匿名使用者
既然報錯那就是不對的。
建議這樣
for each abc in rows("2:2").cellsif abc<>"" then
n=n+1
else
exit for
end if
next
11樓：匿名使用者
column改成
column(n) 看看
關於VBA中變數的問題（bErrList As Boolean）
你 中未體現這個 布林型變數的具體作用 不過berrlist false 如果要顯示出錯資料夾，請把值改為 true 這裡是註釋已經大概說明了用意 這種變數要麼false 要麼true 2種值if berrlist true then 不同值 執行不同 msgbox 真 else msgbox 假 ...
VBA程式設計中關於工作表自動迴圈執行的問題
解0人 簡單問題被你搞複雜了吧？sub 工作表 dim x,y,z z worksheets.count for x 1 to z if worksheets x name 某某 then 不是某某 時才執行下面，否則就不執行嘛 操作end if next end sub dim x y as wo...
excel關於自動生成日期的vba程式設計，請大家幫個忙
private sub worksheet change byval target as range if target.column 1 and target and target.offset 0,1 then activecell.offset 1,1 date if target.colum...