excel腳本

① 求一個簡單的EXCEL腳本或公式

在SHEET1中選頂A列,數據-分列-分隔符-其他(輸入 / ),B列為你需要的字母串.
在SHEET2 A1輸入 =VLOOKUP(Sheet1!B1,Sheet1!B:B,1,FALSE)
公式下拉.

② excel vba 腳本編程問題

subtest()
dimmPathasstring,fasstring,wbasworkbook,shasworksheet,mAry(1to60000,1to1),kaslong
mPath="C:123"'設置路徑
k=0
f=dir(mPath&"*.xls*")'遍歷搜索.xls*類型文件
dowhilef<>""'若f非空，則繼續處理；否則終止do循環
iff<>thisworkbook.namethen'非同名文件
setwb=workbooks.open(mpath&f,,false)
withwb
foreachshin.worksheets
k=k+1
mary(k,1)=sh.[a1]'將內容裝入數組
next
.close0'關閉文件
endwith
endif
f=dir'枚舉一下，搜索下一個excel文件
loop
thisworkbook.worksheets(1).[a1].resize(k,1)=mary'填充數據。
msgbox"處理完成"
endsub

③ 如何能夠自動執行EXCEL宏腳本

Private Sub Workbook_Open()
End Sub
上面的過程可能不是您需要的。
Private Sub Workbook_SheetActivate(ByVal Sh As Object)
End Sub
Private Sub Worksheet_Change(ByVal Target As Range)
End Sub
具體看您需要。

④ excel宏腳本問題

set ws=createobject("wscript.shell")
path=ws.currentdirectory
set fso=createobject("scripting.filesystemobject")
set folder=fso.getfolder(path)
set files=folder.files
for each file in files
if right(file,3)="xls" then call excel(file)
next
msgbox "操作成功！",48+4096,"系統提示"
sub excel(a)
Set objExcel = CreateObject("Excel.Application")
Set objWorkbook = objExcel.Workbooks.Open(a)
intRow = 1
Do Until objExcel.Cells(intRow,1).Value = ""
h= objExcel.Cells(intRow, 1).Value
objExcel.Cells(intRow, 2).Value=left(h,3)
objExcel.Cells(intRow, 3).Value=mid(h,4,2)
objExcel.Cells(intRow, 4).Value=right(h,2)
intRow = intRow + 1
Loop
objExcel.ActiveWorkbook.Save '保存
objExcel.Quit
end sub

把上面的內容保存成VBS文件，之後把它復制到EXCEL文檔的目錄下，雙擊運行即可，連宏也不用了一個文件搞定了。

（強烈建議：請務必在測試後使用！）

已經修改後，發給你了，查收一下。 :)

⑤ 幫我寫一個EXCEL腳本語言

MsgBox "信息提取完畢...", vbInformation, "Excel"

⑥ excel自動篩查的腳本

第一感覺是：內部網上的內容估計難以表達，
如果能全部導出EXCEL 最好

⑦ 怎麼製作excel按鍵精靈腳本

方法/步驟

1
首先來建立一個新的Excel文檔，在桌面上點擊右鍵，選擇【新建】-【Excel工作表】，命名為【新手學員】。

2
現在這個新Excel文檔是空白的，我們接下來會通過按鍵精靈的腳本來打開並寫入一些數據。

3
打開按鍵精靈軟體，點擊【新建】，進入我的腳本界面，再點擊進入【全部命令】。

在【全部命令】中選擇【插件命令】-【office辦公文檔插件】-【打開Excel文檔】。

在命令的下面可以看到命令的詳細設置，點擊【路徑】。

在彈出窗口中選擇【新手學員】的Excel文檔，點擊打開。

可以在命令參數中看到引用的文檔，點擊插入就可以插入對應的命令腳本。

繼續在文檔中寫入新的數據，選擇命令【writeXls 寫入Excel文檔單元格】，選擇對應的單元格的行和列，輸入要寫入單元格的內容【"序號"】，點擊插入。

在腳本界面可以看到新插入的代碼。

根據類似的格式，可以添加其它代碼，一共寫入3行4列的單元格內容。

最後選擇【closeXls 關閉文檔】，點擊插入對應的代碼。

修改腳本屬性的描述和保存的腳本文件名。保存腳本後按【F10】進行腳本調試。

腳本執行完成後，再次打開這個Excel文檔，可以看到剛才設置的數據已經成功寫入了。

⑧ excel裡面如何用vba去打開並運行另一個excel的腳本

OptionExplicit
Submain()
DimwbAsWorkbook
Setwb=Workbooks.Open("d:1.xlsm")
Application.Run"1.xlsm!tt"
wb.Close
Setwb=Nothing
EndSub

這是個示例，我把兩工作簿都在D盤了根目錄運行的，你可以改代碼，也可以該路徑，詳見附件