Snasui Excel Forum

ขอโทษด้วยค่ะ แนบไฟล์มาแล้วค่ะ

https://www.dropbox.com/s/pm76u6e53g199 ... .xlsx?dl=0

กดลิงค์เข้า excel file ค่ะ

ใช่ค่ะ แต่กลัวงง เลยตั้งกระทู้ใหม่ค่ะ อยากลบกระทู้เก่าไปเลย แต่ลบไม่เป็นค่ะ

อยานำข้อมูลจากภาพที่ 1 มาใส่ภาพที่ 2 ค่ะ ลองเขียน code ดูแล้วแต่ไม่ได้ค่พ

http://image.free.in.th/v/2013/ix/160226075048.jpg

http://image.free.in.th/v/2013/ii/160226074835.jpg

Sub AddItem()

Dim rngInput As Range
Set rngInput = Sheets("Raw Data").Range("a1:a3000")

Dim rngOutput As Range
Set ...

มี 2 ชีท อยากเอา item code จากชีท raw data มาใส่ อีกชีท "sheet1" แถวละ c1-c10 ไรแบบนี้ค่ะ
ทำได้แค่นี้ค่ะ แต่ทำให้มันมาอีก 10 บรรทัดไม่ได้ค่ะ

Sub AddItem()

Dim rngInput As Range
Set rngInput = Sheets("Raw Data").Range("a1:a3000")

Dim rngOutput As Range
Set rngOutput = Sheets("Sheet1").Range("c6 ...