- 帖子
- 2798
- 主題
- 10
- 精華
- 0
- 積分
- 2854
- 點名
- 0
- 作業系統
- 〔略〕
- 軟體版本
- 〔略〕
- 閱讀權限
- 100
- 性別
- 男
- 來自
- 〔略〕
- 註冊時間
- 2013-5-13
- 最後登錄
- 2024-4-20
|
Sub TEST()
Dim Sht As Worksheet
For Each Sht In Sheets
With Sht
If InStr("水果/蔬菜/肉類", .Name) = 0 Then GoTo 101
Range(.[C2], .[A65536].End(xlUp)).Copy [總表!A65536].End(xlUp)(2)
End With
101: Next
End Sub |
|
發表於 2019-6-2 10:45
| 