2026年3月19日
复制
摘要： sd Option Explicit Sub Fill_Fixed_Files() ' 文件列表（按顺序对应 D,E,F...） Dim files As Variant files = Array( _ "C:\data\Tokyo.xlsm", _ "C:\data\Osaka.xlsm", _ 阅读全文
posted @ 2026-03-19 18:58 窝窝头一块钱8个 阅读(9) 评论(0) 推荐(0)
vba创建sheet
摘要： kk Sub SplitDataByMonth() Dim wsSource As Worksheet Dim wsTarget As Worksheet Dim lastRow As Long Dim lastCol As Long Dim colAsOf As Long Dim colPartn 阅读全文
posted @ 2026-03-19 16:07 窝窝头一块钱8个 阅读(7) 评论(0) 推荐(0)
对应excle sheetvba实现复制粘贴
摘要： Sub CopyDataBySheetNames() Dim srcWorkbook As Workbook Dim destWorkbook As Workbook Dim srcSheet As Worksheet Dim destSheet As Worksheet Dim srcNames 阅读全文
posted @ 2026-03-19 13:09 窝窝头一块钱8个 阅读(4) 评论(0) 推荐(0)