摘要: Sub BatchProcessAllXLSMFiles() Dim folderPath As String Dim fileName As String Dim wb As Workbook Dim ws As Worksheet Dim newWS As Worksheet ' Configu 阅读全文
posted @ 2026-05-22 12:14 窝窝头一块钱8个 阅读(5) 评论(0) 推荐(0)
摘要: Sub SplitAndPivot_Final() Dim ws As Worksheet Set ws = ThisWorkbook.Sheets("Sheet1") Dim lastRow As Long lastRow = ws.Cells(ws.Rows.Count, "A").End(xl 阅读全文
posted @ 2026-04-17 15:01 窝窝头一块钱8个 阅读(10) 评论(0) 推荐(0)
摘要: <template> <div class="container"> <!-- 顶部操作栏 --> <div class="header"> <el-button type="primary" :icon="Plus" @click="openDialog"> 添加比对企业 </el-button> 阅读全文
posted @ 2026-04-02 15:13 窝窝头一块钱8个 阅读(6) 评论(0) 推荐(0)
摘要: Sub RunMacroInAllXLSMFiles() Dim folderPath As String Dim fileName As String Dim wb As Workbook Dim macroName As String ' Configuration folderPath = " 阅读全文
posted @ 2026-03-30 10:02 窝窝头一块钱8个 阅读(15) 评论(0) 推荐(0)
摘要: Sub ClearRangeInAllXLSMFiles() Dim fso As Object Dim folder As Object Dim file As Object Dim wb As Workbook Dim ws As Worksheet Dim folderPath As Stri 阅读全文
posted @ 2026-03-27 10:42 窝窝头一块钱8个 阅读(5) 评论(0) 推荐(0)
摘要: 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个 阅读(21) 评论(0) 推荐(0)
摘要: 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个 阅读(20) 评论(0) 推荐(0)
摘要: 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个 阅读(9) 评论(0) 推荐(0)
摘要: <template> <div class="catalog-container"> <div class="catalog-title">目录示例</div> <el-table :data="flatList" row-key="id" border style="width: 100%" :r 阅读全文
posted @ 2026-03-13 14:28 窝窝头一块钱8个 阅读(5) 评论(0) 推荐(0)
摘要: <template> <div class="catalog-container"> <div class="catalog-title">目录示例</div> <el-table :data="flatList" row-key="id" border style="width: 100%"> < 阅读全文
posted @ 2026-03-11 15:10 窝窝头一块钱8个 阅读(8) 评论(0) 推荐(0)