Snasui Excel Forum

ลองดูครับ
Sub CollectData()
Dim ws As Worksheet
Dim source As Range
Dim target As Range
For Each ws In Worksheets
If ws.Name <> "Sheet3" Then
With ws.UsedRange
Set source = .Offset(0, 1).Resize(.Rows.Count)
Set target = Cells(1, Columns.Count).End(xlToLeft).Offset(0, 1)
source.Copy target ...

tupthai wrote:

Code: Select all

ws.UsedRange.Resize(ws.UsedRange.Rows().Count, 1).Copy Cells(1, Columns.Count).End(xlToLeft).Offset(0, 1)

ใช้ code นี้ แล้ว มันดึงแต่คอมลัมน์ id มา 2 คอลัมน์ อ่ะครับ

ที่มารวมใน ชีท 3

คอลัมน์ lab จาก sheet1 ไม่มา ครับ

มาแต่ คอลัมน์ bp กับ test จาก sheet 2

ในตาราง sheet3 ที่รวมออกมา อ่ะครับ

อยากให้มี คอลัมน์ id เพียง คอลัมน์เดียวอ่ะครับ

คือ ประมาณว่า หัวคอลัมน์

| ID | LAB | BP | TEST|

ให้เรียงตามนี้ สามารถ ทำได้มั้ยครับ

ท่าน tubthai

ขอบคุณมากครับ

ขอบคุณ ท่าน tupthai มากครับ

ใกล้จะ สำเร็จละ ติดตรงที่ว่า มันก๊อป ซ้ำกัน 2 รอบอ่ะครับ

ยังไงรบกวนดู ไฟล์แนบอีกทีนะครับ

ขอบคุณมากครับ

ครับ

ใช้ code ตัวนี้ พอรัน คำสั่งแล้ว

ตารางในชีท 2 ไปต่อท้าย ลงไปด้านล่าง ตารางที่ 1 ในชีท 3

ซึ่ง ไม่เรียงต่อกันแนวนอน

Sub CollectData()
Dim ws As Worksheet
Dim r As Range
Dim rTarget As Range
Dim DataAll As String
DataAll = "Sheet3"
Application.ScreenUpdating = False
For Each ws In ...

รบกวน อีก นิดครับ

มี วิธี แบบ สร้างคำสั่ง แมโคร กดรัน แล้วมัน ทำงานออโต้ มั้ยอ่าครับ

แบบไม่ต้อง copy เอง

สมมติ ข้อมูล หมื่นๆ เรคคอร์ด ครับ

เดี๋ยว จะลองดู นะครับ

ขอบคุณมากครับ

อยากให้ ตารางในชีท 1 กับ ชีท 2 รวมกัน ไปอยู่ที่ ชีท 3

โดยมีเงื่อนไขว่า
ประมาณว่า ให้เอาคอลัมน์ของแต่ละตารางมาต่อกัน คงไว้แต่ id

หากยังไม่เห็นภาพ เปิดดู ชีท 4 ครับ

เมื่อมีข้อมูลมากๆ จะลากก็อปมาวาง ก็ใช้เวลานาน

สามารถทำ คำสั่ง แมโคร ได้มั้ยครับ
ขอบคุณครับ