ดึงค่าที่ต้องการ

[aoaeeass]

ค่าgps.xlsx

สวัสดีค่ะ รบกวนถามหน่อยค่ะ ว่าถ้าหนูจะลบข้อมูลทั้งหมด ให้เหลือแต่ค่าที่หนูต้องการคือค่า ที่มีชื่อในคอลัมน์ 1 ว่า $GPGGA ให้เหลือแต่คอลัมน์ J กับค่าที่มีชื่อคอลัมป์ 1 ว่า $GPRMC ให้เหลือแต่คอลัมป์ H เพราะหนูต้องการแค่สองค่านี้มาคำนวณต่ออ่าค่ะ ควรทำอย่างไรดีคะ ถ้าให้สองค่านี้อยู่คอลัมน์กันด้วยนะคะ ลองเขียน VB ใส่แล้ว ลองก็อปโค้ดมาจากตัวอย่างที่คล้ายๆกัน แต่แก้ไม่ได้เลยค่ะ หรืออาจจะทำไม่เป็นก็ได้ค่ะ รบกวนหน่อยนะคะ ขอบคุณค่ะ

[aoaeeass]

Sub Delete_Every_Other_Row()

' Dimension variables.
Y = False ' Change this to True if you want to
' delete rows 1, 3, 5, and so on.
I = 1
Set xRng = Selection

' Loop once for every row in the selection.
For xCounter = 1 To xRng.Rows.Count

' If Y is True, then...
If Y = True Then

' ...delete an entire row of cells.
xRng.Cells(I).EntireRow.Delete

' Otherwise...
Else

' ...increment I by one so we can cycle through range.
I = I + 1

End If

' If Y is True, make it False; if Y is False, make it True.
Y = Not Y

Next xCounter

End Sub


โค้ดที่ว่ามันคล้ายๆกัน คืออันนี้ค่ะ อันนี้จะเป็นลบแถวเว้นแถว ตอนแรกคิดว่ามาปรับนิดหน่อยน่าจะได้ แบ่งทำเป็นหลายครั้งเอาก็ได้ แต่ตอนนี้จะให้เหลือซักบรรทัดเดียวยังไม่ได้เลยค่ะ

[todunk85]

ไม่รู้ว่าเป็นไปตามที่ต้องการไหมครับ ถ้าใช่ ก็คือผมใช้ตัวกรองที่ A ช่องเดียวเลยครับ
แล้วกดเลือกสลับตามที่ต้องการลบข้อมูล

[aoaeeass]

ใช่เลยค่ะ ขอบคุณมากนะคะที่เสนอแนวทาง ไม่รู้มาก่อนเลยว่ามันกรองแบบนี้ได้ด้วย แบบว่าไม่ค่อยได้ใช้บ่อยค่ะ ขอบคุณมากเลยค่ะ