指定列內容改成文件名

Ⅰ 用excel宏對sheet按指定列內容命名拆分成若干文件

Sub列數據轉文件()
DimTworkAsWorkbook,TshtAsWorksheet,nameDic,EndRowAsLong
Application.ScreenUpdating=False
SetnameDic=CreateObject("Scripting.Dictionary")
EndRow=[A65536].End(xlUp).Row'獲取A列末行,根據實際液改吵修改為某列
ForEachrngInRange("A2:A"&EndRow)
'遍歷A列第二行開始的所有關鍵字,如非A列,請將A修改成其它列
nameDic(rng.Value)=""'將關鍵字添加至字典對象中（不會重復）
Next
IfActiveSheet.AutoFilterMode=FalseThenRange("A1:C1").AutoFilter
'將工作表A1:C1區域設置為自動篩選,按自己需要修改區域
ForEachtInnameDic.keys'遍歷字典中所有的關鍵字
Ift<>""Then
ActiveSheet.Range("$A$1:$C$"&EndRow).AutoFilterField:=1,Criteria1:=t
殲仿'鬧侍從自動篩選中篩選值為變數t的所有區域
SetTwork=Workbooks.Add:SetTsht=Twork.Sheets(1)
'新建工作簿twork對象,設置Tsht工作表對象
Range("A1").CurrentRegion.CopyTsht.Range("A1")
'將自動篩選出的所有結果復制到新的工作薄中
Twork.SaveAst:Twork.Close:SetTsht=Nothing:SetTwork=Nothing
另存新的工作簿,名字為變數t(既A列中的關鍵字),然後關閉工作簿,清空對象變數
EndIf
Next
Application.ScreenUpdating=True
EndSub

Ⅱ excel用某一單元格的內容做文件名的函數是什麼

正確使用INDIRECT函數，即可解決問題。
公式修改為：
=VLOOKUP(A2,INDIRECT("["&B2&".xlsx]Sheet1!A:C"),3,0)

公式解釋：
INDIRECT函數調用以文本形式表示的表格區域。
INDIRECT("["&B2&".xlsx]Sheet1!A:C")表示
以單元格B2中內容為Excel文件名的工作簿的Sheet1的A到C列。
然後使用VLOOKUP函數進行查找。

Ⅲ 怎麼把EXCEL裡面一列的數據轉換成一個個文件夾的名字（如圖），反之怎麼把一堆文件夾名字轉換在表格里

這個是有簡單方法的，只是好像技術難度有點大。

一、表變文件夾的方法：專

在表裡面增加一列，使用公屬式，轉換為建立文件夾的命令，如下圖：

粘貼到EXCEL裡面即可。