none
ดึงข้อมูล Excel จากหลายๆ sheet มาไว้ใน sheet เดียว (คำถามทั่วไป)

    Question

  • ผมมีไฟล์ซึ่งมี worksheet อยู่ 280 อัน โดยแต่ละอันจะมี 10 บรรทัด และ 2 คอลัมน์

    พอจะมีวิธีรวมตารางพวกนี้มาไว้ใน sheet เดียวไหมครับ 

    Thursday, October 27, 2011 8:34 PM

Answers

  • สวัสดีครับ

    คุณอาจพิจารณาใช้ตัวช่วย Consolidate ที่อยู่ใน Excel ทำได้ครับ

    Consolidate data in multiple worksheets:
    http://office.microsoft.com/en-us/excel-help/consolidate-data-in-multiple-worksheets-HP010095249.aspx


    หวังว่าจะพอช่วยได้นะครับ
    สิริคุณ


    หากพบว่าคำตอบนั้นช่วยในการแก้ปัญหาของคุณได้ กรุณากดทำเครื่องหมายเป็นคำตอบ และหากพบว่าคำแนะนำนั้นน่าสนใจ กรุณากดโหวตว่ามีประโยชน์ ขอบคุณครับ
    Thursday, October 27, 2011 8:35 PM
  • สามารถใช้สูตรหรือ VBA มาช่วยอีกทางครับ

    1. กรณีใช้สูตรดูเพิ่มเติมที่นี่ครับ http://snasui.blogspot.com/2009/12/sheet-sheet.html
    2. กรณีใช้ VBA สามารถใช้ Code ตามด้านล่าง
      Sub CollectData()
          Dim ws As Worksheet
          Dim r As Range
          Dim rTarget As Range
          Dim DataAll As String
          DataAll = "Sheet1"
          Application.ScreenUpdating = False
          For Each ws In Worksheets
              If ws.Name <> DataAll Then
                  With Sheets(DataAll)
                      Set rTarget = .Range("A" & Rows.Count).End(xlUp).Offset(1, 0)
                  End With
                  Set r = ws.Range("A2", ws.Range("A" & Rows.Count).End(xlUp))
                      r.SpecialCells(xlCellTypeConstants).EntireRow.Copy
                      rTarget.PasteSpecial xlPasteValues
              End If
          Next ws
          Application.CutCopyMode = False
          Application.ScreenUpdating = True
      End Sub

    ดูตัวอย่างที่นี่ครับ http://snasui.blogspot.com/2011/10/vba.html


    snasui
    Sunday, October 30, 2011 12:55 AM

All replies

  • สวัสดีครับ

    คุณอาจพิจารณาใช้ตัวช่วย Consolidate ที่อยู่ใน Excel ทำได้ครับ

    Consolidate data in multiple worksheets:
    http://office.microsoft.com/en-us/excel-help/consolidate-data-in-multiple-worksheets-HP010095249.aspx


    หวังว่าจะพอช่วยได้นะครับ
    สิริคุณ


    หากพบว่าคำตอบนั้นช่วยในการแก้ปัญหาของคุณได้ กรุณากดทำเครื่องหมายเป็นคำตอบ และหากพบว่าคำแนะนำนั้นน่าสนใจ กรุณากดโหวตว่ามีประโยชน์ ขอบคุณครับ
    Thursday, October 27, 2011 8:35 PM
  • สามารถใช้สูตรหรือ VBA มาช่วยอีกทางครับ

    1. กรณีใช้สูตรดูเพิ่มเติมที่นี่ครับ http://snasui.blogspot.com/2009/12/sheet-sheet.html
    2. กรณีใช้ VBA สามารถใช้ Code ตามด้านล่าง
      Sub CollectData()
          Dim ws As Worksheet
          Dim r As Range
          Dim rTarget As Range
          Dim DataAll As String
          DataAll = "Sheet1"
          Application.ScreenUpdating = False
          For Each ws In Worksheets
              If ws.Name <> DataAll Then
                  With Sheets(DataAll)
                      Set rTarget = .Range("A" & Rows.Count).End(xlUp).Offset(1, 0)
                  End With
                  Set r = ws.Range("A2", ws.Range("A" & Rows.Count).End(xlUp))
                      r.SpecialCells(xlCellTypeConstants).EntireRow.Copy
                      rTarget.PasteSpecial xlPasteValues
              End If
          Next ws
          Application.CutCopyMode = False
          Application.ScreenUpdating = True
      End Sub

    ดูตัวอย่างที่นี่ครับ http://snasui.blogspot.com/2011/10/vba.html


    snasui
    Sunday, October 30, 2011 12:55 AM
  • ก่อนจะตอบปัญหานี้ได้ คุณต้องอธิบายมาก่อนว่า การรวมตารางที่ว่ามีหน้าตาเป็นแบบใดครับ

    เอามาบวกรวมกันในรายการเดียวกัน

    หรือ

    เอาข้อมูลมาบันทึกต่อท้ายกัน เรียงตามชีท หรือเรียงตามประเภทรายการ หรือเรียงตามลำดับวันที่ หรือเรียงตามลำดับอะไร

    Wednesday, August 01, 2012 3:19 PM