Excel Forum

:D ตัวอย่าง Code ครับ

Dim rAll As Range, dRng As Range
Dim i As Integer, j As Integer
Dim nsh As Worksheet, tRng As Range

Set nsh = Sheets.Add(before:=Sheets(Sheets.Count))
With Sheets("TESE1")
Set dRng = .Range("a2:a32")
With nsh
For j = 0 To 2
For i = 0 To 11
Set rAll = Sheets("TESE1 ...

ขอความกรุณาด้วยครับ ผมก๊อบข้อมูลข้ามมาอีกชีทหนึ่งโดยใช้การบันทึกมาโคร แล้วต้องการก๊อบซ้ำๆหลายครั้ง
โดยนำข้อมูลในแต่ละเดือนมาเรียงใหม่ให้เป็นแถวยาวลงไปตามปีแต่ละปี ผมต้องการหลายๆปี
จึงก๊อบโค้ดที่ได้จากการบันทึกมาโคร มาแก้ตัวเลข แล้ววางต่อซ้ำๆ ประกฎว่ารันไม่ได้เนื่องจากโค้ดยาวเกิน
อยากได้โค้ดที่ส ...

พิมพ์ทั้งหมดครับ แต่ ชื่อ ตำบลกับอำเภอ ที่หัวกระดาษแต่ละแผ่นจะไม่เหมือนกันครับ อยู่ที่ว่าข้อมูลตารางแผ่นนั้น มีชื่อตำบลอำภออะไรบ้าง

เนื่องจากมีงานด่วน ข้อมูลมีจำนวนมาก
ผมได้ตั้งค่าหน้ากระดาษ ให้หัวกระดาษกับท้ายกระดาษ ปริ้นออกมาเหมือนกัน
แต่ติดปัญหาตรงที่ ในเซล A8 ซึ่งอยู่ในหัวกระดาษในแต่ละหน้า มีข้อมูลบางคำในแต่ละหน้าไม่เหมือนกัน

ผมต้องการใส่ ชื่อตำบล อำเภอ จากตารางข้อมูลแต่ละหน้า แทรกเข้าไปใน เซลA8

เช่น > ท้องที่ตำบล ...

ใช้สูตรเพื่อตรวจสอบการซ้ำกับแถวบนครับ (สูตรนี้ผมไม่ได้ verify นะครับ)
F3675
=IF(AND( A3675 <> A3674, B3675 <> B3674 , C3675 <> C3674 ) , "Begin" , "Dup" )

แล้ว Copy ลงไป จากนั้นให้ทำ Filter แสดงเฉพาะ Dup แล้วลบช่องที่ไม่ต้องการออก

ขอบคุณครับ วิธีนี้เข้าใจง่าย และสะดวกดี :thup: :thup: :thup:

ผมต้องการลบข้อมูลในคอลัมที่ซ้ำกันแต่ละชุด ให้เหลือแถวเดียว
แต่ให้คงลำดับแถวไว้เหมือนเดิมตามภาพประกอบ (แถว3675-3684)

พอจะมีวิธีใหนบ้างครับ นั่งลบเองจนตาลาย ข้อมูลเยอะมาก