VBA

为选定单元格设字体的相关属性 Range(\"A4:C100\").Select With Selection.Font .Name = \"Arial\" .FontStyle = \"常规\" .Size = 12

.Underline = xlUnderlineStyleNone End With 赋值

s2.Cells(1, 6) = \"apple:\" 设置sheet名

Sheets(Sheets.count).Name = \"水果\" 计算

s2.Cells(i, 10) = Val(s1.Cells(j, 18)) 选中

Range(\"A1\").Select

复制，移动，删除，保存，删除

1.Sheets(moduleSheetName).Copy after:=Sheets(Sheets.count - 1) 2 ThisWorkbook.Sheets(\"水果\").Copy after:=Sheets(Sheets.count) 3 Workbooks(str_NewBookName).Save 4 Workbooks(str_NewBookName).Close

5 Workbooks(str_NewBookName).Worksheets(\"1\").Delete 可见性

Sheets(\"水果\").Visible = True 活动页

ThisWorkbook.Activate 弹出框

MsgBox \"密码错误。\" 求某页最后一条数据在第几行

k为第几页也可是某夜页的sheet名 endRow 加边框

With Range(\"A\" & \"F\" ).Borders .LineStyle = xlContinuous .Weight = xlMedium .ColorIndex = xlAutomatic End With 数字和字符串的转换

Selection.NumberFormatLocal = \"@\"字符串 Selection.NumberFormatLocal = \"General\"数字 合并单元格

Range（“A1：D1”）。Merge 清除单元格中的内容

Range(“A1：D1”).ClearContents

=

Workbooks(str_NewBookName).Worksheets(arra(k)).Range(\"E65536\").End(xlUp).Row