Note: The other languages of the website are Google-translated. Back to English

วิธีลบแถวตามค่าเซลล์ใน Excel

หากต้องการลบหรือลบหลายแถวอย่างรวดเร็วตามค่าของเซลล์ใน Excel คุณอาจต้องเลือกแถวทั้งหมดที่มีค่าเซลล์เฉพาะก่อนจากนั้นจึงไปที่เอาออก ดูเหมือนว่าจะไม่มีวิธีที่รวดเร็วในการลบแถวตามค่าเซลล์ แต่ใช้รหัส VBA นี่คือเคล็ดลับง่ายๆที่จะช่วยคุณ


ลบแถวตามค่าของเซลล์ด้วยคุณสมบัติค้นหาและแทนที่

ใน Excel คุณสามารถใช้คุณลักษณะค้นหาและแทนที่ที่มีประสิทธิภาพเพื่อลบแถวตามค่าเซลล์ที่ต้องการได้อย่างง่ายดาย โปรดดำเนินการดังนี้:

1. เลือกช่วงที่คุณจะลบแถวตามค่าของเซลล์และเปิดกล่องโต้ตอบค้นหาและแทนที่โดยกดปุ่ม Ctrl + F คีย์พร้อมกัน

2. ในกล่องโต้ตอบค้นหาและแทนที่โปรดพิมพ์ค่าเซลล์ที่ต้องการ (ในกรณีของเราเราป้อนไฟล์ โซ) ลงใน Find what แล้วคลิกไฟล์ Find All ปุ่ม. ดูภาพหน้าจอแรกด้านล่าง:

3. เลือกผลการค้นหาทั้งหมดที่ด้านล่างของกล่องโต้ตอบค้นหาและแทนที่แล้วปิดกล่องโต้ตอบนี้ (หมายเหตุ: คุณสามารถเลือกหนึ่งในผลการค้นหาจากนั้น Ctrl + A ปุ่มเพื่อเลือกผลลัพธ์ที่พบทั้งหมด ดูภาพหน้าจอที่สองด้านบน)
จากนั้นคุณจะเห็นเซลล์ทั้งหมดที่มีการเลือกค่าบางอย่าง

4. ไปข้างหน้าเพื่อคลิกขวาที่เซลล์ที่เลือกแล้วเลือกไฟล์ Delete จากเมนูคลิกขวา แล้วตรวจสอบ Entire row ในป๊อปอัพลบกล่องโต้ตอบและคลิกที่ OK ปุ่ม. ตอนนี้คุณจะเห็นเซลล์ทั้งหมดที่มีค่าบางอย่างถูกลบออก ดูภาพหน้าจอด้านล่าง:

จากนั้นทั้งแถวจะถูกลบตามค่าที่กำหนดแล้ว


ลบแถวตามค่าเซลล์ด้วยรหัส VBA

ด้วยรหัส VBA ต่อไปนี้คุณสามารถลบแถวที่มีค่าเซลล์บางอย่างได้อย่างรวดเร็วโปรดทำตามขั้นตอนต่อไปนี้:

1. กด Alt + F11 ในเวลาเดียวกันเพื่อเปิด Microsoft Visual Basic for applications หน้าต่าง,

2. คลิก Insert > Moduleและใส่รหัสต่อไปนี้ลงในโมดูล:

VBA: ลบทั้งแถวตามค่าของเซลล์

Sub DeleteRows()
'Updateby20211217
Dim rng As Range
Dim InputRng As Range
Dim DeleteRng As Range
Dim DeleteStr As String
Dim xTitleId As String
Dim xArr
Dim xF As Integer
Dim xWSh As Worksheet
On Error Resume Next
xTitleId = "KutoolsforExcel"
Set rng = Application.Selection
Set InputRng = Application.InputBox("Range :", xTitleId, rng.Address, Type:=8)
If InputRng Is Nothing Then Exit Sub
DeleteStr = Application.InputBox("Delete Text", xTitleId, Type:=2)
Set xWSh = InputRng.Worksheet
For Each rng In InputRng
    If rng.Value = DeleteStr Then
        If DeleteRng Is Nothing Then
            Set DeleteRng = rng
        Else
            Set DeleteRng = Application.Union(DeleteRng, rng)
            Set DeleteRng = DeleteRng.EntireRow
        End If
    End If
Next
xArr = Split(DeleteRng.AddressLocal, ",")
DeleteRng.Select
DeleteRng.Delete
For xF = UBound(xArr) To 0 Step -1
    Set DeleteRng = xWSh.Range(xArr(xF))
    DeleteRng.Delete
Next
End Sub

3. จากนั้นคลิกปุ่ม Run ปุ่มเพื่อเรียกใช้รหัส

4. ในกล่องโต้ตอบ popping up โปรดเลือกช่วงที่คุณจะลบแถวตามค่าที่กำหนดแล้วคลิก OK ปุ่ม

5. ในกล่องโต้ตอบอื่นโปรดพิมพ์ค่าที่ต้องการที่คุณจะลบแถวตามและคลิกที่ OK ปุ่ม. ดูภาพหน้าจอ:

จากนั้นคุณจะเห็นว่าแถวทั้งหมดถูกลบตามค่าที่ระบุแล้ว


ลบแถวตามค่าเซลล์หนึ่งหรือสองค่าด้วย Kutools for Excel

ถ้าคุณได้ติดตั้ง Kutools for Excelมัน Select Specific Cells คุณลักษณะสามารถช่วยคุณลบแถวที่มีค่าเฉพาะได้อย่างรวดเร็ว โปรดดำเนินการดังนี้:

Kutools สำหรับ Excel - รวมเครื่องมือที่มีประโยชน์มากกว่า 300 รายการสำหรับ Excel ทดลองใช้ฟรี 30 วันเต็มไม่ต้องใช้บัตรเครดิต! Get It Now

1. เลือกช่วงที่คุณจะลบแถวตามค่าที่กำหนดแล้วคลิก Kutools > Select > Select Specific Cells. ดูภาพหน้าจอ:

2. ในการเปิดกล่องโต้ตอบเลือกเซลล์ที่ระบุโปรดตรวจสอบ Entire row เลือก Contains ราคาเริ่มต้นที่ Specific type รายการแบบหล่นลงป้อนค่าที่ระบุลงในช่องด้านขวาแล้วคลิกไฟล์ Ok ปุ่ม (ดูภาพหน้าจอด้านบน)
หลังจากใช้คุณสมบัตินี้กล่องโต้ตอบจะปรากฏขึ้นและแสดงจำนวนเซลล์ที่พบตามเกณฑ์ที่ระบุ กรุณาคลิกที่ไฟล์ OK เพื่อปิด

3. ตอนนี้ทั้งแถวที่มีค่าที่กำหนดจะถูกเลือก โปรดคลิกขวาที่แถวที่เลือกแล้วคลิก Delete จากเมนูคลิกขวา ดูภาพหน้าจอด้านล่าง:

หมายเหตุ: นี้ Select Specific Cells คุณสมบัติรองรับการลบแถวทีละหนึ่งหรือสองค่า สำหรับการลบแถวตามค่าที่ระบุสองค่าโปรดระบุค่าอื่นในไฟล์ Specific type ส่วนของกล่องโต้ตอบเลือกเซลล์เฉพาะดังภาพหน้าจอต่อไปนี้:

Kutools สำหรับ Excel - รวมเครื่องมือที่มีประโยชน์มากกว่า 300 รายการสำหรับ Excel ทดลองใช้ฟรี 30 วันเต็มไม่ต้องใช้บัตรเครดิต! Get It Now


ลบแถวตามค่าหลายเซลล์ด้วย Kutools for Excel

ในบางกรณีคุณอาจต้องลบแถวตามค่าเซลล์หลายค่าจากคอลัมน์ / รายการอื่นใน Excel ที่นี่ฉันจะแนะนำ Kutools for Excel's Select Same & Different Cells คุณสมบัติในการแก้ปัญหาอย่างรวดเร็วได้อย่างง่ายดาย

Kutools สำหรับ Excel - รวมเครื่องมือที่มีประโยชน์มากกว่า 300 รายการสำหรับ Excel ทดลองใช้ฟรี 30 วันเต็มไม่ต้องใช้บัตรเครดิต! Get It Now

1. คลิก Kutools > Select > Select Same & Different Cells เพื่อเปิดกล่องโต้ตอบเลือกเซลล์ที่เหมือนกันและต่างกัน

2. ในการเปิด Select Same & Different Cells โปรดทำดังนี้ (ดูภาพหน้าจอ):

(1) ใน Find values in โปรดเลือกคอลัมน์ที่คุณจะพบค่าบางค่า
(2) ใน According to โปรดเลือกคอลัมน์ / รายการที่มีค่าหลายค่าที่คุณจะลบแถวตาม;
(3) ใน Based on โปรดตรวจสอบส่วน Each row ตัวเลือก;
(4) ใน Find โปรดตรวจสอบส่วน Same Values ตัวเลือก;
(5) ตรวจสอบไฟล์ Select entire rows ที่ด้านล่างของกล่องโต้ตอบเปิด
หมายเหตุ: หากคอลัมน์ที่ระบุสองคอลัมน์มีส่วนหัวเดียวกันโปรดตรวจสอบไฟล์ My data has headers ตัวเลือก

3. คลิก Ok เพื่อใช้ยูทิลิตี้นี้ จากนั้นกล่องโต้ตอบจะปรากฏขึ้นและแสดงจำนวนแถวที่เลือกไว้ เพียงคลิกที่ไฟล์ OK เพื่อปิด

จากนั้นเลือกแถวทั้งหมดที่มีค่าในรายการที่ระบุแล้ว

4. คลิก Home > Delete > Delete Sheet Rows เพื่อลบแถวที่เลือกทั้งหมด


Demo: ลบแถวตามค่าเซลล์หนึ่งหรือหลายค่าใน Excel


Kutools สำหรับ Excel มีเครื่องมือที่มีประโยชน์มากกว่า 300 รายการสำหรับ Excel ให้ทดลองใช้ฟรีโดยไม่มีข้อ จำกัด ใน 30 วัน ดาวน์โหลดและทดลองใช้ฟรีทันที!

เครื่องมือเพิ่มประสิทธิภาพการทำงานในสำนักงานที่ดีที่สุด

Kutools สำหรับ Excel ช่วยแก้ปัญหาส่วนใหญ่ของคุณและเพิ่มผลผลิตของคุณได้ถึง 80%

  • นำมาใช้ใหม่: ใส่อย่างรวดเร็ว สูตรที่ซับซ้อนแผนภูมิ และสิ่งที่คุณเคยใช้มาก่อน เข้ารหัสเซลล์ ด้วยรหัสผ่าน; สร้างรายชื่อผู้รับจดหมาย และส่งอีเมล ...
  • ซุปเปอร์ฟอร์มูล่าบาร์ (แก้ไขข้อความและสูตรหลายบรรทัดได้อย่างง่ายดาย); การอ่านเค้าโครง (อ่านและแก้ไขเซลล์จำนวนมากได้อย่างง่ายดาย); วางลงในช่วงที่กรองแล้ว...
  • ผสานเซลล์ / แถว / คอลัมน์ โดยไม่สูญเสียข้อมูล แยกเนื้อหาของเซลล์ รวมแถว / คอลัมน์ที่ซ้ำกัน... ป้องกันเซลล์ซ้ำ; เปรียบเทียบช่วง...
  • เลือกซ้ำหรือไม่ซ้ำ แถว; เลือกแถวว่าง (เซลล์ทั้งหมดว่างเปล่า); Super Find และ Fuzzy Find ในสมุดงานจำนวนมาก สุ่มเลือก ...
  • สำเนาถูกต้อง หลายเซลล์โดยไม่เปลี่ยนการอ้างอิงสูตร สร้างการอ้างอิงอัตโนมัติ ถึงหลายแผ่น ใส่สัญลักษณ์แสดงหัวข้อย่อย, กล่องกาเครื่องหมายและอื่น ๆ ...
  • แยกข้อความ, เพิ่มข้อความ, ลบตามตำแหน่ง, ลบ Space; สร้างและพิมพ์ผลรวมย่อยของเพจ แปลงระหว่างเนื้อหาของเซลล์และความคิดเห็น...
  • ซุปเปอร์ฟิลเตอร์ (บันทึกและใช้โครงร่างตัวกรองกับแผ่นงานอื่น ๆ ); การเรียงลำดับขั้นสูง ตามเดือน / สัปดาห์ / วันความถี่และอื่น ๆ ตัวกรองพิเศษ โดยตัวหนาตัวเอียง ...
  • รวมสมุดงานและแผ่นงาน; ผสานตารางตามคอลัมน์สำคัญ แยกข้อมูลออกเป็นหลายแผ่น; Batch แปลง xls, xlsx และ PDF...
  • คุณสมบัติที่ทรงพลังมากกว่า 300 รายการ. รองรับ Office / Excel 2007-2019 และ 365 รองรับทุกภาษา ใช้งานง่ายในองค์กรหรือองค์กรของคุณ ทดลองใช้ฟรี 30 วันเต็ม รับประกันคืนเงิน 60 วัน
kte แท็บ 201905

แท็บ Office นำอินเทอร์เฟซแบบแท็บมาที่ Office และทำให้งานของคุณง่ายขึ้นมาก

  • เปิดใช้งานการแก้ไขและอ่านแบบแท็บใน Word, Excel, PowerPoint, ผู้จัดพิมพ์, Access, Visio และโครงการ
  • เปิดและสร้างเอกสารหลายรายการในแท็บใหม่ของหน้าต่างเดียวกันแทนที่จะเป็นในหน้าต่างใหม่
  • เพิ่มผลผลิตของคุณ 50% และลดการคลิกเมาส์หลายร้อยครั้งให้คุณทุกวัน!
ด้านล่าง officetab
จัดเรียงความคิดเห็นโดย
ความคิดเห็น (39)
ยังไม่มีการให้คะแนน เป็นคนแรกที่ให้คะแนน!
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
มหัศจรรย์! ได้ผลดี ฉันปรับเปลี่ยนเล็กน้อยเพื่อให้เหมาะกับสิ่งที่ฉันต้องการ แต่มีความเฉลียวฉลาดอย่างแท้จริง โอ้ เวอร์ชั่น VBA
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
มีวิธีใดในการแก้ไข If (cell.Value) = "Apple" เพื่อรวมหลายค่า?
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
Bobby ลองนี่สิ มันควรจะได้สิ่งที่ต้องการ ถ้า (cell.Value) = "Apple" OR (cell.Value) = "Monday"
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
อย่างไรก็ตาม มีค่าที่รับรู้ค่าไม่ว่าจะเป็น > หรือ = กับค่าใดค่าหนึ่งหรือไม่?
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
เฮ้ - ขอบคุณมากสำหรับสคริปต์ ฉันสงสัยว่าคุณสามารถใช้สัญลักษณ์แทนเพื่อให้คุณสามารถเลือกอะไรก็ได้ภายในเซลล์ที่ตรงกันแทนที่จะเป็นรายการเฉพาะหรือไม่ ฉันได้ลองใช้ ** wildcard แล้ว แต่ดูเหมือนจะไม่ทำอะไรเลย นี่คือสิ่งที่ฉันมี: Sub Delete_Rows() Dim rng As Range, เซลล์ As Range, del As Range Set rng = Intersect(Range("B6:B20"), ActiveSheet.UsedRange) สำหรับแต่ละเซลล์ใน rng ถ้า cell.Value Like "*WORDTODELETE*" _ จากนั้นถ้า del Is Nothing จากนั้นให้ตั้งค่า del = เซลล์ Else: Set del = Union (del, เซลล์) สิ้นสุด If End หากเซลล์ถัดไปเกิดข้อผิดพลาด Resume Next del.EntireRow.Delete End Sub
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
ขอบคุณจากใจจริง เป็นเรื่องน่าขบขันเสมอเมื่อฝ่ายการตลาดพยายามเขียนโค้ด และข้อมูลนี้มีประโยชน์มาก ฉันไม่สามารถรับรหัสเพื่อขยายหลายคอลัมน์ได้ ("AA2:AA3000" ใช้งานได้ "AB2:AB3000" ใช้งานได้ แต่ "AA2:AB3000" ไม่ทำงาน ไม่มี Kaboom ที่ทำให้โลกแตก - มันไม่ทำอะไรเลย ฉัน ได้แก้ไขมันแล้ว (อย่างมือสมัครเล่น ฉันคิดว่า) โดยเรียกใช้มาโครหลายตัวตามลำดับ แต่อาจมีวิธีที่สง่างามกว่านี้ ขอขอบคุณอีกครั้งสำหรับความช่วยเหลือของคุณ Jim (Melville, NY)
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
ฉันได้รับ: ข้อผิดพลาดรันไทม์ '13': ประเภท mismatch Debugging ไฮไลต์ส่วน If (cell.Value) = "FALSE" _ จากนั้น ฉันหลงทางใน MVB โดยสิ้นเชิง ความช่วยเหลือใด ๆ ที่จะได้รับการชื่นชม
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
ให้บอกว่าฉันใส่โค้ดด้านล่างเพื่อลบแถวทั้งหมดของฉันที่มี apple แต่แล้วฉันต้องการให้ดำเนินการต่อเมื่อเสร็จแล้วและลบแถวทั้งหมดที่มีกล้วยหรือไม่ ฉันพยายามทำซ้ำรหัส แต่ดูเหมือนว่าจะหยุดหลังจาก apple ขอบใจ. Sub Delete_Rows() Dim rng As Range, cell As Range, del As Range Set rng = Intersect(Range("A1:C20"), ActiveSheet.UsedRange) สำหรับแต่ละเซลล์ใน rng If (cell.Value) = "Apple" _ ถ้า del Is Nothing แล้ว Set del = cell Else: Set del = Union(del, cell) End If End If Next cell On Error Resume Next del.EntireRow.Delete End Sub
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
ฉันแค่อยากจะบอกว่าขอบคุณ นี้ทำงานเหมือนมีเสน่ห์
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
เป๊ะปังแน่นอน! ขอบคุณที่แบ่งปัน!!!
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
ขอบคุณ มันเยี่ยมมาก! ความคิดเห็นด่วน ฉันลองใช้ฟังก์ชันค้นหาและแทนที่ใน excel 2010 เพื่อเลือกผลลัพธ์ที่พบทั้งหมด ฉันต้องใช้ Ctrl +A แทน Alt + A
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
สวัสดี วิธีที่ง่ายที่สุดในการลบแถวที่ไม่มี "Apple" คืออะไร ขอบคุณ
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
สวัสดี มีวิธีใดในการเขียนเพื่อลบแถวโดยมีข้อยกเว้น OR เช่น- ลบแถวที่ซ้ำกัน แต่ละเว้นค่าบางอย่าง ฉันต้องการลบรายการที่ซ้ำกัน ยกเว้นในกรณีที่คอลัมน์ที่เป็นปัญหามี b/c ว่างที่คอลัมน์นั้นยังไม่มีข้อมูลที่ถูกต้อง ฉันวิ่งตามที่คุณมี แต่ฉันสิ้นสุดการลบแถวด้วยช่องว่างในคอลัมน์ที่เป็นปัญหา ดังนั้นฉันจึงไม่สามารถใช้งานได้ตามที่เป็นอยู่ ขอบคุณ
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
ขอบคุณสำหรับสคริปต์ VB ฉันไม่สามารถรอที่จะลองสิ่งนี้ คำถาม:มีการทำเครื่องหมายคอลัมน์สำหรับการลบก่อนที่จะลบและ/หรือคัดลอกไปยังแท็บแยกต่างหากในเวิร์กบุ๊กหรือไม่ นอกจากนี้ มีวิธีเรียกใช้สคริปต์นี้บนหลายเวิร์กบุ๊ก/ไฟล์ในคราวเดียวหรือไม่
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
ขอบคุณ .. มันช่วยฉันได้มาก ...
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
ฉันต้องการลบแถวทั้งหมดที่ column1 = "Apple" AND column3 = "green" โปรด?
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
ฉันไม่แน่ใจว่าจะทำสิ่งนี้โดยใช้มาโครได้อย่างไร แต่ตัวเลือกหนึ่งที่จะทำงานได้ดีคือการเพิ่มคอลัมน์พิเศษที่ทดสอบว่าคอลัมน์หนึ่งเป็น "แอปเปิ้ล" และอีกตัวเลือกหนึ่งเป็น "สีเขียว" แล้วปล่อยให้ มันให้ค่า "ใช่" หรือ "ไม่ใช่" อย่างง่าย กว่าใช้ตัวเลือกใดตัวเลือกหนึ่งด้านบนเพื่อค้นหาค่า "ใช่" และลบแถวตามค่านั้นแทนค่าที่แยกจากกัน 2 ค่า
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
ฉันมีรายชื่อร้านค้าในเอกสารฉบับเดียว ฉันมีรายงานที่ส่งคืนพันบรรทัด หมายเลขร้านค้าจะอยู่ในคอลัมน์ A เสมอ มีรหัส/มาโครที่จะค้นหารายงานและลบคอลัมน์ทั้งหมดที่มีหมายเลขร้านค้าออกจากรายการร้านค้าหรือไม่ ต้องใช้ vlookup และ "Do while"
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
สวัสดีและขอบคุณมากสำหรับรหัส VBA ฉันมีหนึ่งคำถาม. เป็นไปได้ไหมที่จะสร้างโค้ดในลักษณะที่สามารถเลือกค่าเซลล์หลายค่าที่จะลบพร้อมกันได้? เช่น เลือก Apple และ Emily พร้อมกัน แล้วลบทิ้ง? ฉันขอขอบคุณที่คุณทำงานและรอคอยการตอบกลับของคุณ Joan K
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
ฉันจะระบุช่วง A3:D3000 ได้อย่างไร (เช่น ฉันไม่ต้องการให้ผู้ใช้เลือกช่วง) ฉันจะทำให้ Delete String เป็นการอ้างอิงเซลล์ได้อย่างไร เช่น G1?
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
เป็นไปได้ไหมที่จะเปรียบเทียบสองคอลัมน์แล้วลบ? อยู่ในช่วง A3:D3000 ถ้าเซลล์ A=x และเซลล์ B=y ลบแถว?
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
สิ่งที่ดี ขอบคุณมากทั้งหมดมาก :)
มีความคิดเห็นยังไม่มีการโพสต์ที่นี่
โหลดเพิ่มเติม
แสดงความคิดเห็นของคุณ
โพสต์ในฐานะแขก
×
ให้คะแนนโพสต์นี้:
0   ตัวอักษร
สถานที่แนะนำ