VBA : เมื่อต้องการลบข้อมูลบางส่วนในแผ่นงาน

แปะ  code ที่เกี่ยวข้องไว้ก่อน

ActiveSheet.UsedRange.Select

MsgBox Selection.Rows.Count
MsgBox Selection.Columns.Count

MsgBox Selection.SpecialCells(xlCellTypeLastCell).Row
MsgBox Selection.SpecialCells(xlCellTypeLastCell).Column

MsgBox ActiveCell.Address
MsgBox Selection.Address

MsgBox ActiveCell.Column
MsgBox ActiveCell.Row

ไว้จะมาดูว่าเอาไปทำอะไรได้บ้าง

แปะเพลงไว้ก่อน

หนึ่งคน หนึ่งหัวใจ

เปลี่ยน 

ข้ามฟ้ามาร้องไห้

เสียงหัวใจวันไร้เธอ

เพลงที่เคยฟังในวันที่เจ็บที่สุด อ่อนแอที่สุด

เสียงหัวใจวันไร้เธอ 

ต้องอยู่ยังไง ต้องทนต้องทำอะไรยังไง

ชีวิตที่มีแต่ลมหายใจ มืดมน อ้างว้างและว่างเปล่า

ยิ่งเดินยิ่งเคว้ง ทุกครั้งที่กอดตัวเองยิ่งหนาว

แค่ลมพัดเบาเบา ราวหัวใจ

ดังเหมือนจะดับไปกับแสงตะวัน

เธออยู่ที่ไหน ความรักเราตายแล้วหรือ

ไขว่คว้าไม่เจอสักมือ เฝ้ารออย่างท้อใจ

ทำได้เพียงเท่านั้น เรียกเธอซ้ำซ้ำ

หมื่นแสนล้านคำทุกวัน

เผื่อเธอซึ้งถึงความร้าวราน เธอจะเดินกลับมา

หายใจช้าช้า หัวใจเต้นเบากว่าเดิมช้าช้า

ไม่เหลือเรี่ยวแรงจะเช็ดน้ำตา ฉันทำได้เพียงแค่ร้องไห้

ยิ่งลืมยิ่งช้ำ สุดท้ายคำตอบคือทำไม่ไหว

แอบฟังเสียงในใจ เสียงหัวใจ

ดังเหมือนจะดับไปกับแสงตะวัน

เธออยู่ที่ไหน ความรักเราตายแล้วหรือ

ไขว่คว้าไม่เจอสักมือ เฝ้ารออย่างท้อใจ

ทำได้เพียงเท่านั้น เรียกเธอซ้ำซ้ำ

หมื่นแสนล้านคำทุกวัน

เผื่อเธอซึ้งถึงความร้าวราน เธอจะเดินกลับมา

เธออยู่ที่ไหน ไม่สงสารใจฉันหรือ

ไขว่คว้าไม่เจอกับมือ เฝ้ารออย่างท้อใจ

ทำได้เพียงแค่นั้น เรียกเธอซ้ำซ้ำ

หมื่นแสนล้านคำทุกวัน

เผื่อเธอซึ้งถึงความร้าวราน เธอจะเดินกลับมา

เผื่อเธอสงสารคนไร้ค่า เธอจะมาก่อนฉันตาย

หลับตา กลั้นใจ บอกลา

หลับตา กลั้นใจ บอกลา - Klear

เหมือนที่เรานั้นกลัว ทุกอย่าง ฝันของเราสองคน จางหาย

รักที่เคยงดงาม มันก็เปลี่ยน เหลือแค่ความทุกข์ทน เรื่อยมา

∗ หลับตา ถอนใจ เหนื่อยล้า หัวใจ น้ำตา ไหลไป สุดท้าย เสียใจ

∗∗ ยอมก้าวผ่าน รักที่มันจืดจาง ยื้อกันไป ฝืนกันไป เพื่อใคร

 ยอมให้รักเราจบ ให้วันนี้เป็นคืนสุดท้าย หลับตา กลั้นใจ บอกลา

เหลือแค่เงาของเรา ในหัวใจ ไม่มีความหมายใด ให้จดจำ

 ไม่ว่าจะรักกันเท่าไหร่ สุดท้ายก็ต้องจบกัน จะยื้อกันไป จะฝืนกันไป เพื่อใคร

 ช่วยจำภาพฉันที่สวยงาม ก่อนความรักจะเปลี่ยนเป็นมืดมน หลับตา กลั้นใจ บอกลา

 หลับตา กลั้นใจ บอกลา หลับตา กลั้นใจ บอกลา หลับตา กลั้นใจบอกลา

อธิษฐาน

อธิษฐาน  - KLEAR

น้ำตาที่รินไหล นั้น ไม่เคยลบเลือน 

สายลมที่โชยพัด พ้น ไปอย่างว่างเปล่า 

แสงจันทร์ที่สดใส เหลือ เพียงแค่เงา 

เสียงเพลงที่ปวดร้าว นี้ ฉันไม่ต้องการ

เหม่อมองฟ้า ภาวนา จะมีไหมความเมตตา 

ขอเพียงดาวซักดวง ยอมดับแสง 

ร่วงลงจากฟ้า เพื่อคำร้อง คำอ้อนวอน ในคืนนี้

อยากขอเคียงข้างเธอ ได้รักเธอเหมือนเคย 

อธิษฐาน อธิษฐาน ขอพรฟากฟ้า 

อยากคว้าเธอมากอด เหนี่ยวรั้งเธอให้อยู่ 

ปรารถนา ปรารถนา เพียงเธอได้กลับมา อีกสักครั้ง

ขอพรจากหมู่ดาว เหมือน ดังในนิทาน 

แค่ดวงหนึ่งเท่านั้น ฉัน ก็คงสมใจ 

เหม่อมองฟ้า ภาวนา จะมีไหมความเมตตา 

ขอเพียงดาวซักดวง ยอมดับแสง 

ร่วงลงจากฟ้า เพื่อคำร้อง คำอ้อนวอน ในคืนนี้

อยากขอเคียงข้างเธอ ได้รักเธอเหมือนเคย 

อธิษฐาน อธิษฐาน ขอพรฟากฟ้า 

อยากคว้าเธอมากอด เหนี่ยวรั้งเธอให้อยู่ 

ปรารถนา ปรารถนา เพียงเธอได้กลับมา อีกสักครั้ง

กลิ่นกายของเธอ ยังชัดเจนในใจ 

อ้อมกอดเคยคุ้น ยังอบอุ่นในใจ 

เนิ่นนานแสนนาน เธอก็ยิ่งฝังใจ 

ไม่มีทางไหน ที่จะลืมเธอ…

อยากขอเคียงข้างเธอ ได้รักเธอเหมือนเคย 

อธิษฐาน อธิษฐาน ขอพรฟากฟ้า 

อยากคว้าเธอมากอด เหนี่ยวรั้งเธอให้อยู่ 

ปรารถนา ปรารถนา เพียงเธอได้กลับมา

ให้ฉันได้ยืนข้างๆเธอ ให้ได้รั้งเธอเข้ามากอด 

อีกสักครั้ง เพียงแค่นั้น ที่ขอจากฟากฟ้า 

ตราบที่ฉันนั้นยังมีลมหายใจ 

คงพร่ำเพ้อถึงเธออย่างนี้เรื่อยไป 

ขอแค่เธอ ขอแค่เธอ ขอแค่เธอ 

แค่เพียงเธอได้กลับมา.. อีกสักครั้ง 

น้ำตาที่รินไหล.. นั้น ไม่เคยลบเลือน..