Snasui Excel Forum

ทำได้เเล้วครับ ขอบคุณครับ

ผมลองเเล้ว ผลลัพธ์ มันไม่ได้เเยกออกมาเเบบนี้อ่ะครับ
#37569# * 500
#37898# * 400
#37903# * 700
#37983# * 87
#37999# * 45
#38043# * 299
#38077# * 125
#38101# * 1375
#44589# * 450
ขอบคุณครับ

Sub Button1_Click()
Dim wsDB As Worksheet, wsRes As Worksheet
Set wsDB = Worksheets("Database")
Set wsRes = Worksheets("Results")

Dim iLastRow As Integer
iLastRow = wsDB.Cells(wsDB.Rows.Count, "A").End(xlUp).Row

Dim iAddRow As Integer
iAddRow = 2

Dim arrParams() As String, arrGoods ...

สวัสดีครับทุกท่าน
ผมมีโจทย์ในการเขียนโค้ด VBA ให้โค้ดไปตัดข้อมูลบางส่วนไม่ได้ครับ
ตัวอย่าง
ข้อมูลจะเรียงมาเป็นคอลัมน์เดียวกัน
#37569# * 500#37898# * 400#37903# * 700#37983# * 87#37999# * 45#38043# * 299#38077# * 125#38101# * 1375#44589# * 450

ที่ต้องการ
เเต่ต้องการตัดลงมาเป็นอีกเเถวหนึ่ง เเบบด ...