Captain_DUDU的博客

1ActiveSheet.Cells(1, 1).PasteSpecial（拷贝方法为选择性拷贝）2ActiveSheet.Cells(ActiveSheet.Range(“a65536”).End(xlUp).Row + 1, (索引exce工作簿中最最底部的位置)Sub 合并()Sheets(1).Range("a1:F1").CopyActiveSheet.Cells(1, 1).P...

Sub 导表() expath = ThisDocument.Path & "\" Set exapp = CreateObject("excel.application") exapp.Visible = True exapp.workbooks.Open (expath + "销量情况.xlsx") exapp.sheets("Sheet2")...

123

1Sub a1()'Application(CountA(Range("k:k")))For i = 2 To Application.CountA(Range("k:k")) Sheets("房产数据").Select kv = Range("k" & i) ActiveSheet.PivotTables("数据透视表1").PivotField...

Sub qqq() For i = 2 To 5 str1 = Range("g" & i) ActiveSheet.PivotTables("数据透视表2").PivotFields("车间").ClearAllFilters ActiveSheet.PivotTables("数据透视表2").PivotFields("车间").CurrentPage ...