摘要:
代码来源Excelhome,链接:http://club.excelhome.net/thread-1360829-1-1.html 存着,以后借鉴着用^-^ Sub 去重汇总() Dim arr, brrDim dDim i As Integer, j As Integer, n As Integ 阅读全文
摘要:
Sub 合并工作簿数据()Dim arrDim i As Integer, j As Integer, x As IntegerDim f As String, m As String, n As StringActiveSheet.Range("b4:y34").ClearContentsf = 阅读全文
摘要:
##指定列求和 需求: 求和:列为“销售金额”的数值 Sub 求和()Dim i As Integer, j As IntegerFor i = 3 To 56For j = 15 To 81 Step 2Cells(i, 13) = Cells(i, 13) + Cells(i, j)Next j 阅读全文
摘要:
问题描述:汇总多个工作表的指定字段到sheet1里面,并去除重复的字段内容。 Sub 去重汇总() Dim sht As Worksheet, j As Integer, x As Integer Set d = CreateObject("scripting.dictionary") For Ea 阅读全文
摘要:
sub 汇总多个工作簿() Application.ScreenUpdating = False Dim wb As Workbook, f As String, l As String, n As String, m As String, j As Integer f = ThisWorkbook 阅读全文