新增宏，编辑。
第4行代码即：从第1个工作表开始，一直到第30个分工作表，单元格A2的值从1递增到30.
第5行代码即：从第2个工作表开始，一直到第31个分工作表，K2到K10区域单元格的值从1递增到30.
第6行代码即：从第2个工作表开始，一直到第31个分工作表，L2到L10区域单元格的值都是3.

无论工作表名是什么，按位置数数。
dim 意味创建一个新的变量

Sub 宏1()
Dim j As Integer
For j = 1 To 30
Worksheets(j).Range("A2") = j
Worksheets(j + 1).Range("K2:K10") = j
Worksheets(j + 1).Range("L2:L10") = 3
End Sub
                    新增宏，编辑。无论工作表名是什么，按位置数数。第4行代码即：从第1个工作表开始，一直到第30个分工作表，单元格A2的值从1递增到30.第5行代码即：从第2个工作表开始，一直到第31个分工作表，K2到K10区域单元格的值从1递增到30.第6行代码即：从第2个工作表开始，一直到第31个分工作表，L2到L10区域单元格的值都是3.Sub 宏1()Dim j As IntegerFor j...
				
手动修改要打印的时间段，如2022年2月8日至2022年2月28日，会判断当天是否是工作日，若是自动将日期填充到单元格f1（可手动修改）上，并打印，每个日期打印两次；若不是，则跳过不打印。
2022年5月27日，现已改为点击不同的按钮就可以实现打印，新的包已上传
源码见文章：https://blog.csdn.net/huicaipa1943/article/details/122837515
				
excel表中需要多列需要填充公式，但是需要填充的表有几个、行记录数总变，因此自己编写了这个宏。
代码中：一个函数负责获取每个表的有效记录最大行数，一个函数负责填充公式。调用的Sub是一个应用实例。
使用前建议用录制宏获得需要填充的公式。
本人在一个测试用例excel-word转换简易工具中应用这个实现记录完整填充。
Option Explicit
Dim bk, ex, f, gf, sh, so, sheet
Set so = CreateObject("Scripting.FileSystemObject")
Set gf = so.GetFolder(".")
Set ex = WScript.CreateObject("Excel.Application")
ex.Application.DisplayAlerts = False
ex.Visible = False
For Each f In gf.Files
If LCase(so.GetExtensionName(f.Name)) = "xls" Then
				
Excel操作1 基础操作1.1 快捷键1.2 宽度和高度的调整1.3 对齐1.4 样式1.5 日期1.6 修改1.7 公式计算1.8 数字2 表格设计3 自动加总函数4 冻结窗格&分割视窗5 资料排序6 筛选
1 基础操作
1.1 快捷键
				
想要在指定区域内的excel表格内，鼠标点击一次，单元格数据自动增1，首先找到excel的开发人员工具，然后进入Visual Basic。
通过Row()和Column函数获取当前点击单元格的行和列，再加以限制想要的行列条件，即可实现在指定区域内鼠标点击一次单元格，数据自动加1
Private Sub Worksheet_SelectionChange(ByVal Target As Range)...
    Dim ws As Worksheet
    Application.DisplayAlerts = False
    For Each ws In ActiveWorkbook.Worksheets
        ws.Delete
    Next ws
    Application.DisplayAlerts = True
End Sub
这段代码会循环遍历当前工作簿中的所有工作表，并删除它们。在删除工作表时，我们需要将 DisplayAlerts 属性设置为 False，以避免出现删除确认对话框。