1樓：匿名使用者
set sh1 = sheets.add
set sh2 = sheets.add
set sh3 = sheets.add
set sh4 = sheets.add
set sh5 = sheets.add
set sh6 = sheets.add
sh1.name = "sh1"
sh2.name = "sh2"
sh3.name = "sh3"
sh4.name = "sh4"
sh5.name = "sh5"
sh6.name = "sh6"
sh1.range("a1") = "工作2室": sh1.range("a2") = "=if(sheet1!a1=1,""k2"",0)"
sh2.range("a1") = "工作3室": sh2.range("a2") = "=if(sheet1!a1=2,""k3"",0)"
sh3.range("a1") = "工作3室": sh3.range("a2") = "=if(sheet1!a1=3,""k4"",0)"
sh4.range("a1") = "工作4室": sh4.range("a2") = "=if(sheet1!a1=4,""k5"",0)"
sh5.range("a1") = "工作2室": sh5.range("a2") = "=if(sheet1!a1=5,""k6"",0)"
sh6.range("a1") = "工作3室": sh6.range("a2") = "=if(sheet1!a1=6,""k7"",0)"
2樓：匿名使用者
沒明白sh1.range("a1") = "工作2室": sh1.range("a2") = "=if(sheet1!a1=1,""k2"",0)"
a1內容是"工作2室"，後半句有什麼用？結果 不全是0了
用excel巨集按行、列矩陣自動生成匹配明細 30
3樓：
sub test()
dim rg
set rg = sheets(1).usedrange
for each c in rg
if c.value = "y" then
a = sheets(2).[a65536].end(3).row + 1
sheets(2).cells(a, 1) = cells(1, c.column)
sheets(2).cells(a, 2) = cells(c.row, 1)
sheets(2).cells(a, 3) = cells(c.row, 2)
end if
next
sheets(2).range("a2:c" & sheets(2).
[a65536].end(3).row).
sort key1:=sheets(2).range("a2")
end sub
如何用excel巨集提取檔名生成目錄？如何用excel巨集提取檔名生成目錄？比如要從c盤提取其所有的檔名（
4樓：
方法一：
1、在那個資料夾內新建一個.txt檔案（如wenjian.txt），用記事本單開輸入
dir> 1.txt
儲存退出
將剛才的.txt（wenjian.txt）更名為.bat檔案（wenjian.bat）
雙擊wenjian.bat檔案執行一次，在資料夾內多出一個1.txt檔案
開啟1.txt檔案，將其中的內容貼上到excel中，資料——分列處理就可以得到你要的檔名列表了！
方法二：
在那個資料夾下新建excel檔案，開啟新建的excel檔案，右擊工作表標籤（如sheet1），檢視**——在**編輯器中輸入以下**：
sub aaa()
f = dir("c:\*.*")
han = 1
do while f > ""
cells(han, 1).value = f
han = han + 1
f = dir
loop
end sub
回到excel**中，工具——巨集——巨集——選擇sheet1.test——執行
看看效果吧！
另外可以到http://www.excelhome.net/，看看有沒有更適合你的。
急用！求excel自動生成當前所在資料夾內檔案目錄 150
5樓：匿名使用者
方法/步驟
一、所需dos命令
dir [drive:][path] /b > [drive:][path]filename
二、應用例項
如下圖，在d盤中，有一個名稱為「tqipc」的資料夾，這個資料夾裡面，存放了很多的**！
現在，我們要做的就是，如何讓這些**的名稱，自動顯示在excel或記事本里面！
執行選單操作「開始」→「執行」，彈出執行對話方塊，在裡面輸入 cmd 並按「確定」鍵，這個時候，會開啟如下圖的ms-dos視窗！
之後，如下圖一樣，輸入dos命令即可！
上述的命令輸入好之後，就按下回車鍵，命令就執行了，以上生成的是xls檔案；如果您想生成記事本txt檔案，那麼，就輸入下圖的dos命令即可！
就這樣，非常簡單，檔名的列表檔案，就形成了！如下圖！
通過dos命令的操作，我們就得到了如上圖的兩個檔案了。
下面我們開啟temp.xls檔案看看，如下圖！
看到了沒有，資料夾中的**名稱，自動就顯示在excel**中了！
該dos命令非常強大，用好dos命令，可省去我們很多的功夫。
三、知識擴充套件
下面，再給大家一個例子，即，自動根據**(根據人物名稱)，建立資料夾。
如果某個資料夾下面，您存放的是某些人物的**，並且，每個人物的**，都使用其名字來命名；這個時候，如何要自動根據人物的自動建立其對應的資料夾，也相當方便！
操作的方法是，先根據上述的方法，獲取所有人物的**的名稱，生成excel檔案；
然後，在人物名稱列前面，插入一列，並輸入md；
接下來，使用查詢替換功能，將excel檔案中的人物名稱，去掉副檔名(只保留名字)；
最後，將excel的內容，複製貼上到記事本中，現在，我們就得到了形如：「md 人物名稱」 這樣的命令格式了。(md 檔名稱，該命令格式，是使用來建立資料夾的命令，上述的操作，都是為此做準備！
)將記事本檔案儲存成為形如：124.bat格式的檔案，最後，雙擊此檔案，資料夾名稱就自動建立好了！
求excel 巨集高手 需要根據總表自動生成分表
6樓：匿名使用者
直接用篩選功能就可以
7樓：匿名使用者
可以做到，方便把表發過來嗎？做好了，我再把**發給你，[email protected]
excel巨集自動填充顏色
用條件格式更方便。選中第2到第500行，全部先設為白色，然後點選單 格式 條件格式 下拉框中選擇 公式 旁邊輸入公式 mod row 2,10 5 點 格式 設定圖案為藍色，確定即可。sub abc dim a,b as integer b 1 for a 2 to 500 if b 5 then ...
ecel如何自動啟用巨集，EXCEL如何自動啟用巨集
清蓮寺 可以做到不彈出啟用巨集禁用巨集視窗，點巨集命令後，直接啟動，方法 工具 巨集 安全性 選擇低，確定即可。如圖。不過不建議這樣操作，這樣對巨集病毒的防禦力很低，幾乎沒有抵抗巨集毒能力。 山口壇斜 工具 巨集 安全性 選低 檔案，選項，信任中心設定，巨集設定，啟用所有巨集，信任對vba物件工程模...
如何在excel中用巨集（VBA）實現VLOOKUP的功能
慶年工坊 function myvlookup val,rg as range,n as integer,f as boolean arr rg if f then for i ubound arr to 1 step 1if val arr i,1 thenmyvlookup arr i,n en...