2026年7月23日
批量清除筛选条件保留下拉图标 & 清空固定区域
摘要： Option Explicit ' ' 【可调参数区】按需修改 ' Private Const TARGET_FOLDER As String = "D:\ExcelFiles\Data\" ' ← 修改这里，末尾必须带 \ Private Const FILE_EXT As String = "* 阅读全文
posted @ 2026-07-23 10:43 窝窝头一块钱8个 阅读(1) 评论(0) 推荐(0)
2026年7月13日
只要mtd ytd准备好即可
摘要： Option Explicit ' User Configuration (Module-level Constants) Private Const SRC_PATH As String = "C:\SourceFiles\" Private Const LCY_MTD As String = " 阅读全文
posted @ 2026-07-13 20:57 窝窝头一块钱8个 阅读(4) 评论(0) 推荐(0)
home page自动填写日期等
摘要： Sub FillHomePage() Dim wb As Workbook Dim ws As Worksheet Dim folderPath As String Dim fileName As String Dim fileCode As String Dim fixedDate1 As Str 阅读全文
posted @ 2026-07-13 13:10 窝窝头一块钱8个 阅读(4) 评论(0) 推荐(0)
粘贴ytd
摘要： Sub MergeYTDData() Dim wbSource As Workbook, wbTarget As Workbook Dim wsSource As Worksheet, wsTarget As Worksheet Dim sourcePath As String, targetPat 阅读全文
posted @ 2026-07-13 12:39 窝窝头一块钱8个 阅读(2) 评论(0) 推荐(0)
三个月合并
摘要： Sub MergeMonthlyData() Dim wbSource As Workbook, wbTarget As Workbook Dim wsSource As Worksheet, wsTarget As Worksheet Dim sourcePath As String, targe 阅读全文
posted @ 2026-07-13 11:49 窝窝头一块钱8个 阅读(2) 评论(0) 推荐(0)
2026年7月10日
复制跑完脚本的 YTD 对应
摘要： Option Explicit Sub CopyYTDInputData() ' USER CONFIGURATION SECTION 'Source and destination folder paths (do not include trailing backslash) Const Sou 阅读全文
posted @ 2026-07-10 15:25 窝窝头一块钱8个 阅读(6) 评论(0) 推荐(0)
两个文件夹 文件对应复制某个指定单元个数据
摘要： Option Explicit Sub CopyHomePageData() ' User configuration section 'Source and destination folder paths (do not include trailing backslash) Const Sou 阅读全文
posted @ 2026-07-10 14:21 窝窝头一块钱8个 阅读(5) 评论(0) 推荐(0)
源文件夹中每个xlsm文件里所有MTH开头的Sheet页，复制到对应的目标文件夹中的同名xlsm文件
摘要： Sub CopyMTHSheetsToTarget() Dim sourceFolder As String Dim targetFolder As String Dim sourceFile As String Dim targetFile As String Dim wbSource As Wo 阅读全文
posted @ 2026-07-10 12:38 窝窝头一块钱8个 阅读(3) 评论(0) 推荐(0)
根据模板 选取文件名 复制生成数目一样的 拼接
摘要： Sub GenerateFilesFromArray() Dim fd As FileDialog Dim folderPath As String Dim sourceFilePath As String Dim sourceFileName As String Dim sourceBaseNam 阅读全文
posted @ 2026-07-10 11:51 窝窝头一块钱8个 阅读(3) 评论(0) 推荐(0)
vba 提取一个文件夹下 所有文件的文件名
摘要： Sub GetFileNameText() Dim fd As FileDialog Dim folderPath As String Dim fileName As String Dim fso As Object Dim arrName As Variant Dim i As Long Dim 阅读全文
posted @ 2026-07-10 11:27 窝窝头一块钱8个 阅读(7) 评论(0) 推荐(0)
下一页