- 帖子
- 712
- 主題
- 281
- 精華
- 0
- 積分
- 1019
- 點名
- 0
- 作業系統
- Windows 10
- 軟體版本
- Office 2019
- 閱讀權限
- 50
- 性別
- 男
- 註冊時間
- 2011-6-30
- 最後登錄
- 2025-5-22
|
回復 2# GBKEE
感謝G大出馬解決問題，我自行修改了一下如下，正式的寫法還要請G大幫忙，如下：
因為A欄是日期，所以我用巨集錄下了修改所以竟變成了，第14~16行是巨集錄製的。- Dim Ar As Variant, E As Variant
- Sheets("總表").UsedRange.Offset(1).Clear '**清除總表中舊有資料
- For Each E In Sheets
- If E.Name <> "總表" Then
- If IsEmpty(Ar) Then ReDim Ar(1 To 1) Else ReDim Preserve Ar(1 To UBound(Ar) + 1)
- Ar(UBound(Ar)) = E.UsedRange.Offset(1)
- End If
- Next
- For Each E In Ar
- With Sheets("總表").Range("A" & Rows.Count).End(xlUp).Offset(1)
- .Resize(UBound(E), UBound(E, 2)) = E
- End With
- Next
- Range("A2").Select
- Range(Selection, Selection.End(xlDown)).Select
- Selection.NumberFormatLocal = "[$-404]e/m/d"
|
|
發表於 2016-10-22 15:01
| 
