写入一维数组

arr=[1,3,'hello',"world"];
Sheets.Item(1).Range("A1").Resize(1,arr.length).Value2=arr;

事件:Workbook_SheetChange 单元格改变(需判断区域执行)

区域=[3,3,5,4];
if(rg.Row>=区域[0]&&rg.Row<=区域[2]&&rg.Column>=区域[1]&&rg.Column<=区域[3]){}

提取工作表

表.Copy();// 会新增一个 Window
ActiveWorkbook.SaveAs(路径);
ActiveWorkbook.Close();

写出文本文档

f=FreeFile();
Open("C:\\Users\\XJY\\Desktop\\123.txt",f,jsAppend,jsReadWrite);
Write(f,1234);
Close(f);

单元格

多选单元格Resize(2,5)向下2行,向右5列：Worksheets.Item(工作表名or索引从1开始).Cells.Range("A1").Resize(2,5);

取当前单元格位置:竖：.Column;

取当前单元格位置:横：.Row;

读取值：.Value()

改变值：.Value2=新值

选中单元格：.Select()

C2:D6 区域内的第一格：Range("C2:D6").Item(1).Value()

A列第1行单元格：.Item(1,"A")

复制单元格：.Item(6,3).Copy(.Item(6,8)) //从6.3(C6)单元格复制到8.6(H6)

工作表

取工作表名 : Worksheets.Item(工作表名or索引从1开始).Name

设置工作表名 :Worksheets.Item(工作表名or索引从1开始).Name=新表名

获取当前文件工作表总数 :Worksheets.Count

切换活动工作表 :Worksheets.Item(工作表名or索引从1开始).Activate()

最后位置新建工作表：Worksheets.Add(null,Sheets(Sheets.Count));

复制: 工作表or位置.Copy(新表or新位置);

复制数值:工作表or位置.Copy();新表or新位置.PasteSpecial(xlPasteValues);

单元格格式—数字(NumberFormatlocal 属性)

常规：.NumberFormatlocal = "G/通用格式"

数值：.NumberFormatlocal = "0.000_ " --保留小数位数为3

.NumberFormatlocal = "0" --不要小数

.NumberFormatlocal = "#,##0.000 " --保留小数位数为3，并使用千位分隔符

货币：.NumberFormatlocal = "$#,##0.000"

百分比：.NumberFormatlocal = "0.000%"

百分比：.Style = "百分比";

分数：.NumberFormatlocal = "# ?/?"

科学计数：.NumberFormatlocal = "0.00E+00"

文本：.NumberFormatlocal = "@"

特殊：.NumberFormatlocal = "000000"---邮政编码

中文小写数字：.NumberFormatlocal = "[DBNum1]G/通用格式"

中文大写数字：.NumberFormatlocal = "[DBNum2]G/通用格式"

人民币大写：.NumberFormatlocal = "[DBNum2][$RMB]G/通用格式"

设置时间格式：.NumberFormatLocal="yyyy-m-d h:mm:ss";

合并对齐

水平对齐：.HorizontalAlignment = xlHAlignCenter ---居中

垂直对齐：.VerticalAlignment = xlVAlignCenter---居中

是否自动换行：.WrapText = True

是否缩小字体填充：.ShrinkToFit = True

是否合并单元格：.MergeCells = False

文字竖排：.Orientation = etVertical

文字倾斜度数：.Orientation = 45 -----倾斜45度

合并单元格：.Merge();

字体（Font对象）

字体名称：.Font.Name = "华文行楷"

下划线：.Font.Strikethrough = True; Font.Underline = etUnderlineStyleDouble ---双下划线

上标：.Font.Superscript = True

下标：.Font.SubScript = True

删除线：.Font.OutlineFont = True

字体样式：.Font.FontStyle = "粗体"

字体大小：.Font.Size = "18"

边框（Borders对象）

.Borders.Item(etEdgeTop)：上边框

.Borders.Item(etEdgeLeft)：左边框

.Borders.Item(etEdgeRight)：右边框

.Borders.Item(etEdgeBottom)：下边框

.Borders.Item(etDiagonalDown)：左上--右下边框

.Borders.Item(etDiagonalUp)：左下--右上边框

.Borders.LineStyle = etContinuous 线条样式(例:1=实线,2=虚线)