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盘了根目录运行的，你可以改代码，也可以该路径，详见附件