請問如何將訂單原始資料轉成需要的?

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

1^# 跳轉到 »

發表於 2019-6-22 13:01 | 顯示全部帖子

[批號]也做去重覆再加總:

Xl0000365.rar (19.34 KB)

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

2^#

發表於 2019-6-22 19:19 | 顯示全部帖子

回復 8# gaishutsusuru

[J1].Resize(MaxRa + 1, MaxCa) = Arr
[J1].Cells(MaxRa + 4, 1).Resize(MaxRb + 2, MaxCb) = Brr

上下空兩行~~

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

3^#

發表於 2019-6-23 12:36 | 顯示全部帖子

回復 10# gaishutsusuru

如果表一超過10行, 又怎做???

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

4^#

發表於 2019-6-23 12:43 | 顯示全部帖子

回復 10# gaishutsusuru

With [J1].Resize(MaxRa + 1, MaxCa)
   .Value = Arr
   .Borders.LineStyle = 1
   .Rows(1).Interior.ColorIndex = 6
End With

Dim Erng As Range
Set Erng = [J1].Cells(MaxRa + 4, 1)
If Erng.Row < 10 Then Set Erng = [J10]
With Erng.Resize(MaxRb + 2, MaxCb)
   .Value = Brr
   .Borders.LineStyle = 1
   .Rows(1).Interior.ColorIndex = 6
End With