excel表格脚本怎么写

1.求写一个EXCEL脚本

用字典解决问题还是比较好，代码也比较简洁，这里没有直接在字典中抽取各个关键字和条目，而是采用了常规的把字典关键字和条目导出到数组，再赋值给单元格的方法。

Sub abc() Dim a, i%, j%, t%, d, q, k Set d = CreateObject("Scripting.dictionary") a = ActiveSheet.UsedRange For i = 1 To UBound(a) For j = 2 To UBound(a, 2) Step 2 If a(i, j) <> "" Then If d.exists(a(i, j)) Then d(a(i, j)) = d(a(i, j)) & "/" & a(i, j - 1) Else d.Add a(i, j), a(i, j - 1) End If Next q = d.items: k = d.keys For j = 1 To d.Count Cells(i, 15 + j + t) = q(j - 1) Cells(i, 16 + j + t) = k(j - 1) t = t + 1 Next d.RemoveAll: t = 0 NextEnd Sub。

2.怎么用按键精灵写脚本把excel表格中的信息复制到网页上去?类似自动

//下面这句是打开Excel文档工作表 Call Plugin.Office.OpenXls("C：\测试.xls") //下面这句是向Excel文档工作表（1）单元格（1, 2）读出内容存入（Text）变量 Text = Plugin.Office.ReadXls(1, 1, 2) MessageBox "读出内容为："&Text //在读到内容之后再进行填表。

如果填表的你也不会就看下相应的例子。//下面这句是关闭Excel文档工作表 Call Plugin.Office.CloseXls()。

3.怎么利用按键精灵编写一个脚本程序,使excel表里面的数据,依次录

这个很费时间的，给你一段代码参考吧：call Plugin.Office.OpenXls("d:\001.xls")For i= 1 to 10text = Plugin.Office.ReadXls(1, i, 1)Call Plugin.File.WriteFileEx("d:001.txt","text")NextCall Plugin.Office.CloseXls（)按键精灵是一款模拟鼠标键盘动作的软件。

通过制作脚本，可以让按键精灵代替双手，自动执行一系列鼠标键盘动作。按键精灵简单易用，不需要任何编程知识就可以作出功能强大的脚本。

只要在电脑前用双手可以完成的动作，按键精灵都可以替代完成。

4.excel中用脚本如何在单元格中填写alt+enter换行的文字

看下面的代码，只要在"Alt"+"Enter"内容处加入一个Chr(10)符号就可以。

例如要在123和32132处强行回车，就加个chr(10)符号Sub Macro1() Range("A1").Select ActiveCell.FormulaR1C1 = "123" & Chr(10) & "32132" ------这句就是 With ActiveCell.Characters(Start:=1, Length:=9).Font .Name = "宋体" .FontStyle = "常规" .Size = 11 .Strikethrough = False .Superscript = False .Subscript = False .OutlineFont = False .Shadow = False .Underline = xlUnderlineStyleNone .ThemeColor = xlThemeColorLight1 .TintAndShade = 0 .ThemeFont = xlThemeFontMinor End WithEnd Sub。