返回列表下一主題上一主題發帖

[發問] 依條件合併資料

jesscc

中學生 Rank: 2

帖子: 162
主題: 44
精華: 0
積分: 244
點名: 0
作業系統: windows 7
軟體版本: office 2010
閱讀權限: 20
性別: 男
註冊時間: 2011-4-4
最後登錄: 2022-10-3

論壇贊助勳章

1^# 跳轉到 » 倒序看帖

打印

字體大小: tT

發表於 2019-6-29 11:05 | 顯示全部帖子

[發問] 依條件合併資料

以 S欄資料作為判斷，相同資料超過一筆以上就將其對應的 D列資料結合，如果 S欄中只有一筆的，就直接填入 D欄的相關資料。附件內有詳細說明
只寫了一部分，但執行不如預期，不知哪裡錯了，還請教導。

test.rar (23.11 KB)

樓主熱帖

Jess

jesscc

中學生 Rank: 2

帖子: 162
主題: 44
精華: 0
積分: 244
點名: 0
作業系統: windows 7
軟體版本: office 2010
閱讀權限: 20
性別: 男
註冊時間: 2011-4-4
最後登錄: 2022-10-3

論壇贊助勳章

2^#

發表於 2019-6-30 13:51 | 顯示全部帖子

感謝准大，一定花了很多時間。程式碼很深奧，但是我想要達到的效果其實很單純:
工作表"B area" 要轉到工作表"INVOICE" 的資料是:
Q欄(件數)-->工作表"INVOICE" E欄
N欄(分類) & ( D欄(P/N 料號) & G欄(出貨數) & PCS，..... )-->工作表"INVOICE" F欄(依照工作表"B area" S欄相同的資料(已用底色標示)將各欄位資料結合為一串文字，在整串結合好的文字前加上N欄(分類))
V欄(Amount (US$))-->工作表"INVOICE" I欄
V欄(Amount (US$)) / Q欄(件數)-->工作表"INVOICE" H欄

以上資料從工作表"INVOICE" 已存在的最後一筆資料，也就是27列接續往下填入
之前還有結合字串左右加括號、加逗點的問題，但已解決。現在的主要問題是結合出來的工作表"INVOICE" F欄資料不正確，其他資料都正確，不用變動。

Jess

TOP

jesscc

中學生 Rank: 2

帖子: 162
主題: 44
精華: 0
積分: 244
點名: 0
作業系統: windows 7
軟體版本: office 2010
閱讀權限: 20
性別: 男
註冊時間: 2011-4-4
最後登錄: 2022-10-3

論壇贊助勳章

3^#

發表於 2019-6-30 18:39 | 顯示全部帖子

准大，您的程式對我的程度來說實在太深奧了，尤其是處理分類字串那部分，幾乎完全看不懂。
我在論壇裡找到一個範例，與我想要的結果還滿接近的，修改了一下，目前看來可用，但就是只能結合字串(字串最右邊會缺一個右括號)，沒辦法轉各欄位的數值，能幫我看看加上轉各欄位的數值嗎?

Sub new1()
Set d = CreateObject("Scripting.Dictionary")
For Each s In Range([S7], [S3000].End(xlUp))
If d(s.Value) = "" Then '如果K欄資料只有一筆不重複
d(s.Value) = s.Offset(, -5) & " " & "( " & s.Offset(, -15) & " " & s.Offset(, -12) & " PCS"
Else
d(s.Value) = d(s.Value) & ", " & s.Offset(, -15) & " " & s.Offset(, -12) & " PCS"
End If
Next
With Sheets("INVOICE")
xrow = .[F3000].End(xlUp).Row
.[B3] = xrow
.Range("C" & xrow + 1, "K3000").ClearContents
.Range("F" & xrow).Offset(1, 0).Resize(d.Count, 1) = Application.Transpose(d.items)
End With
Set d=Nothing
End Sub

複製代碼

Jess

TOP

靜思自在 : 做該做的事是智慧，做不該做的事是愚癡。

返回列表下一主題上一主題