B =本工作簿。工作表(“圖1的表名”)。使用範圍。行數。計數
C = ThisWorkbook。工作表(“圖1的表名”)。使用範圍。列數
j = 0
對於i = 1到b
如果此工作簿。工作表(“您的圖表1表格名稱”)。細胞(I,3)
j = j + 1
對於m = 1到c
此工作簿。工作表(“圖2中的表名”)。Cells (j,m) = ThisWorkbook。工作表(“您的表名在圖1中”)。細胞(I,m)。
然後
如果…就會結束
然後
末端接頭
我剛剛學到,試壹試這本練習冊的第6行。工作表(“您的圖表名稱1”)。Cells(i,3),最後3個是過濾後的列C的列號,可以根據妳的需要進行調整。如果您將圖表名稱1替換為與截圖1相對應的工作表名稱,那麽您的圖表名稱1是可以的。