請教，如何複製不同工作表特定欄位(忽略空白值)到一個工作表上 - Excel程式區

[發問] 請教，如何複製不同工作表特定欄位(忽略空白值)到一個工作表上

帖子: 2848
主題: 10
精華: 0
積分: 2903
點名: 0
作業系統: 〔略〕
軟體版本: 〔略〕
閱讀權限: 100
性別: 男
來自: 〔略〕
註冊時間: 2013-5-13
最後登錄: 2026-7-25

1^# 跳轉到 »

發表於 2020-7-23 13:00 | 顯示全部帖子

Sub TEST()
Dim xR As Range, xS As Worksheet, xU As Range
With Sheets("單價分析總表")
   .UsedRange.Offset(5, 0).EntireRow.Delete
   Set xR = .[B6]
End With
For Each xS In Sheets
If Right(xS.Name, 4) <> "單價分析" Then GoTo 101
Set xU = Intersect(xS.[B:H], xS.UsedRange).Offset(1, 0)
With xR.Resize(xU.Rows.Count, xU.Columns.Count)
      xU.Copy .Cells
      .Value = .Value
End With
Set xR = xR(xU.Rows.Count + 1)
101: Next
Range(xR(-xR.Row + 3, 1), xR(-1, 7)).Name = "Print_Area"
End Sub

第６行以上自行處理～～
　
　
＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝

TOP

准提部林

版主 Rank: 7 Rank: 7 Rank: 7

帖子: 2848
主題: 10
精華: 0
積分: 2903
點名: 0
作業系統: 〔略〕
軟體版本: 〔略〕
閱讀權限: 100
性別: 男
來自: 〔略〕
註冊時間: 2013-5-13
最後登錄: 2026-7-25

2^#

發表於 2020-7-28 12:49 | 顯示全部帖子

本帖最後由准提部林於 2020-7-28 12:52 編輯

回復 5# edmondsforum

1.單價分析總表的項次，能依照各子項單價分析編號一二三四五依照排序複製過來嗎?

1) 最多到幾? 10以上,又是怎麼標?
10 = "一十" 或 "十" 或 "一○"
12 = "十二" 或 "一十二"

2) 同一工作表，會不會跳號？或同號
3) 不同工作表, 會不會同號?

中文大寫的數字, 這不太好弄~~最好自行先將工作表順序手動調一調~~或定義工作表名稱順序
至於文字顏色及格式, 應該不難, 可自行去修改或補入程式碼~~樣樣伸手牌不是好習慣

======================================

TOP

准提部林