1樓：匿名使用者
dim sht as worksheet
for each sht in worksheetsif sht.name <> "新工作表" then固定列.copy '例如a列 則把 固定列 改成 sht.
columns("a:a")
sheets("新工作表").columns(列).insert shift:=xltoright '如果在a列位置插入就把"列"改成"a:a"
end if
next
2樓：勒粵嘟呀戲
簡單for each ...in ...next 就可以完成了！**如下，你試試。
sub azz()
dim sht as worksheetfor each sht in sheetsif sht.name <> "新表"各 theni= i+1
arr=sht. range("a2:a6")'假設固定列為a2:a6
sheets("新表").cells(1,i).resize(6,1)=arr
next
end sub
3樓：凱
worksheets("工作表").columns("h:h").copy worksheets("新工作表").columns("r:r")
excel單元格匹配，用vba'怎麼實現，求幫忙，謝謝！！！！問題在下面
4樓：匿名使用者
sub 123()
dim i , j as integer
for i =1 to 7
for j= 1 to 7
if left( sheets("表名稱").cells(j,7))=sheets("表名稱").cells(i,1) then
sheets("表名稱").cells(i,8)=sheets("表名稱").cells(j,7)
exit for
end if
next j
next i
end sub
5樓：慶年工坊
sub xx()
n=[a65536].end(3).rowfor i=1 to n
cells(i,8)=cells(i,1) & "_" & cells(i,2) & "_" & format(cells(i,3),"yyyymmddhhmmss")
next
end sub
大神們 幫幫忙！excel**問題用vba寫！！！
6樓：平陽虎
無需vba，公式就行，如下圖，在首個單元格中輸入
=offset($a$1,row(a1)*3+int(column(c1)/3)-4,mod(column(c1),3))
回車確認後右拖、下拉填充。
7樓：不良氣息
sub cc()
dim i, n
for i = 0 to 19
for n = 0 to 2
range(cells(3 * i + n + 1, 1), cells(3 * i + n + 1, 3)).cut cells(i + 1, 3 * n + 1)
next
next
end sub
在excel裡面使用vba，按鈕命令怎麼執行？
8樓：迮玉芬能寅
我的感覺：
if是.value
=true
then
這裡的value是當前頁的按鈕值，所以你每次都是把所有記錄重新整理為當前選擇的答案。應該用類似如下**獲取value
multipage1.pages(0).optionbutton1.value
是page
0的按鈕1的值
希望對你有幫助
9樓：
你可以先錄製個巨集（隨便操作一下，例如：點選個單元格等），然後將這個按鈕指向這個巨集，然後將巨集內的**改成你所需要的內容。再執行該按鈕即可。
10樓：匿名使用者
alt+f11
進入vba介面,
在左邊vbaproject中點選右鍵---插入模組---寫上**sub adder()
range("d3").value=range("d2").value*0.68
end sub
然後回到excel中------點選按鈕(點玩後應該會彈出一個"巨集" 或者是 "巨集" 的對話方塊,)------在巨集名中輸入adder-----確定,
這樣,點選這個按鈕就可以實現你想要的了.
如何使用excel的vba呼叫word裡面的vba
11樓：姓王的
肯定是可以的，不過我沒試過，只是從幫助裡得到的結論。
你可以用另一種辦法：在exce的**裡啟用word視窗，然後用 sendkeys 語句傳送鍵盤資訊呼叫word的巨集，就像在直接使用word一樣
12樓：匿名使用者
為什麼不直接在excel裡面來實現word裡面的那個aa功能
求懂excel vba的大神，這裡有一道題目求解！關於呼叫的。
13樓：陽光上的橋
sub 巨集1()
dim arr,u,b,i
'建立使用者字典
set u=createobject("scripting.dictionary")
arr=sheets("表1").usedrangefor i=1 to ubound(arr)u(arr(i,1))=arr(i,2)
next i
'建立書字典
set b=createobject("scripting.dictionary")
arr=sheets("表2").usedrangefor i=1 to ubound(arr)b(arr(i,1))=arr(i,2)
next i
'生成表4（從表3和u、b）
arr=sheets("表3").usedrangesheets("表4").select
for i=1 to ubound(arr)cells(i,1)=u(arr(i,1))cells(i,2)=b(arr(i,2))next i
end sub
14樓：清風吧吧啦
方法很多，你確定是要用vba來做？
15樓：匿名使用者
可以寫，用vba一鍵生成
在excel裡編vba時，如何呼叫其他載入巨集裡的函式計算？
16樓：百足先鋒
呼叫函式可以bai這寫：run (工作簿名du!巨集名,引數zhi1,引數2……)
例如呼叫a1.xls檔案裡巨集名稱為dao
17樓：匿名使用者
本示例示範如何呼叫
巨集表「mycustom.xlm」（ 必須先開啟此巨集表 〕中定義的巨集函式回 my_func_sum。此函式帶兩個數值型引數
18樓：戇灃嘉祺
很簡bai
單：run (工作簿名du!巨集名,引數1,引數2…zhi…)例如呼叫a1.
xls檔案裡dao巨集名稱為abc的巨集，假定內巨集沒有引數，**為：容run "a1.xls!
abc"
因為不需要返回值，括號省略。注意被呼叫巨集的檔案（a1.xls）要處於開啟狀態。
19樓：匿名使用者
直接使用call呼叫就好。因為所有的巨集都有都在模組裡面。在程式中需要呼叫直接輸入巨集名就好了。
20樓：匿名使用者
funcation test()
end function
'引用call test
求幫忙寫一段excel中的vba程式或者介紹可用的自帶函式~
21樓：匿名使用者
為什麼不考慮用資料透視表呢？用資料透視表就能很方便的解決你的問題了。
excel2007:資料——資料透視表
excel2003:插入——資料透視表
22樓：匿名使用者
聽起來你的要求挺簡單啊，
假設源資料從sheet1的a1開始
新的sheet1也從a1開始
那麼b1=sumif(sheet1!$a:$a,$a1,sheet1!b:b)
向下向後拉
23樓：
假設原資料在sheet1中，新數在sheet2中，在sheet2的a1輸入白，a2輸入紅，a3輸入黑
在b1輸入
=sumif(sheet1!$a$1:$a$5,$a1,sheet1!b$1:b$5)
然後，點選b1單元格，點住單元格右下角小黑方塊向右拉動到e1，再選中b1：e1，點住右下角小黑方塊向下拉到e3即可
請VBA高手幫忙，我要在EXCEL中插入控制元件，每次只要點選這個控制元件就能實現下面的功能
option base 1 sub sort dim r as integer dim j as integer dim k as integer dim tnum as string r b65536 end xlup row set d createobject scripting.dictio...
求excel的vba語句，謝謝，線上等！在excel裡vba裡，通過sql語句實現多列結果求和，謝謝大神！
sub 填充 set isheet worksheets sheet1 set osheet worksheets sheet2 for k 3 to osheet.usedrange.rows.count 1 for i 6 to 15 if isheet.cells 3,i value oshe...
求excel高手指教幫幫忙啊求excel高手指教幫幫忙啊
vlookup是個查詢函式 根據對應的值返回你查詢的列對應的行的值 上面的意思是 我假設你在是f列輸入的公式 f1 vlookup e e,c users administrator.pc 20130620ehe desktop 0708.xls 小區 g 1 t 65536,14,0 表示 在檔案...