ສາລະບານ
ໃນ VBA ທ່ານສາມາດນໍາໃຊ້ວິທີການຕ່າງໆເພື່ອຊອກຫາແຖວສຸດທ້າຍ. ໃນບົດຄວາມນີ້, ຂ້ອຍຈະອະທິບາຍວິທີການທີ່ແຕກຕ່າງກັນຂອງ VBA ຊອກຫາແຖວສຸດທ້າຍໃນ Excel.
ເພື່ອເຮັດໃຫ້ຄໍາອະທິບາຍນີ້ເຫັນໄດ້, ຂ້ອຍຈະໃຊ້ຊຸດຂໍ້ມູນຕົວຢ່າງ. ມີ 4 ຖັນໃນຊຸດຂໍ້ມູນທີ່ເປັນຕົວແທນຂອງຂໍ້ມູນການຂາຍ. ຖັນເຫຼົ່ານີ້ແມ່ນ ພະນັກງານຂາຍ, ພາກພື້ນ, ຜະລິດຕະພັນ, ແລະ ລາຄາ .
ດາວໂຫລດເພື່ອປະຕິບັດ
VBA Find Last Row.xlsm
ວິທີທີ່ຈະ VBA ຊອກຫາແຖວສຸດທ້າຍໃນ Excel
1. ການນໍາໃຊ້ SpecialCells ເພື່ອຊອກຫາແຖວສຸດທ້າຍ
ທ່ານສາມາດໃຊ້ວິທີ SpecialCells ເພື່ອຊອກຫາແຖວສຸດທ້າຍໂດຍໃຊ້ VBA .
ທຳອິດ, ໃຫ້ເປີດ ຜູ້ພັດທະນາ. ແຖບ >> ຈາກນັ້ນເລືອກ Visual Basic
ໜ້າຕ່າງໃໝ່ຂອງ Microsoft Visual Basic for Applications ຈະປະກົດຂຶ້ນ.
ດຽວນີ້, ຈາກ ໃສ່ >> ເລືອກ ໂມດູນ
A ໂມດູນ ຈະຖືກເປີດ.
ຈາກນັ້ນຂຽນລະຫັດຕໍ່ໄປນີ້ໃນ Module .
8056
ຢູ່ນີ້, ຂ້ອຍໄດ້ສ້າງຂະບວນການຍ່ອຍທີ່ເອີ້ນວ່າ LastRow_SpecialCells , ບ່ອນທີ່ມີປະເພດ Long ຂອງຕົວແປ LastRow ໄດ້ຖືກປະກາດແລ້ວ.
ຈາກນັ້ນກຳນົດຕົວແປໂດຍໃຊ້ວິທີ Range.SpecialCells . ທີ່ນີ້, ຂ້ອຍໄດ້ໃຊ້ຖັນ A ( A:A ) ເປັນໄລຍະ. ໃຫ້ xlCellTypeLastCell ເປັນພາລາມິເຕີປະເພດຂອງ SpecialCells , ນີ້ຈະສົ່ງຄືນຕາລາງສຸດທ້າຍສໍາລັບໄລຍະ (ສໍາລັບກໍລະນີນີ້, ຈາກຖັນ. A ).
ຂ້ອຍໄດ້ໃຊ້ກ່ອງຂໍ້ຄວາມເພື່ອສະແດງຜົນ.
ຫຼັງຈາກນັ້ນ, ບັນທຶກ ລະຫັດ ແລະກັບໄປທີ່ ແຜ່ນວຽກ.
ອີກເທື່ອໜຶ່ງ, ເປີດ ເບິ່ງ ແຖບ >> ຈາກ Macros >> ເລືອກ ເບິ່ງ Macros
ຈາກນັ້ນ, ກ່ອງໂຕ້ຕອບ ຈະປາກົດຂຶ້ນ.
ດຽວນີ້, ຈາກ ຊື່ Macro ເລືອກ LastRow_SpecialCells ຍັງເລືອກປຶ້ມວຽກພາຍໃນ Macros ໃນ .
ສຸດທ້າຍ, ແລ່ນ ທີ່ເລືອກ Macro .
ດັ່ງນັ້ນ, ມັນຈະປາກົດຂຶ້ນກ່ອງຂໍ້ຄວາມສະແດງຕົວເລກແຖວສຸດທ້າຍ.
2. ການນໍາໃຊ້ Rows.Count ສໍາລັບເຊລທີ່ບໍ່ຫວ່າງເປົ່າ
ທ່ານສາມາດໃຊ້ວິທີ Rows.Count ເພື່ອຊອກຫາແຖວສຸດທ້າຍໂດຍໃຊ້ VBA .
ດຽວນີ້, ເປີດ ຜູ້ພັດທະນາ ແຖບ >> ຈາກນັ້ນເລືອກ Visual Basic
ໜ້າຕ່າງໃໝ່ຂອງ Microsoft Visual Basic for Applications ຈະປະກົດຂຶ້ນ.
ດຽວນີ້, ຈາກ ໃສ່ >> ເລືອກ ໂມດູນ
A ໂມດູນ ຈະຖືກເປີດ.
ຈາກນັ້ນຂຽນລະຫັດຕໍ່ໄປນີ້ໃນ Module .
2243
ຢູ່ນີ້, ຂ້ອຍໄດ້ສ້າງຂັ້ນຕອນຍ່ອຍທີ່ເອີ້ນວ່າ LastRow_NonEmpty, ບ່ອນທີ່ຕົວແປປະເພດ Long LastRow ຖືກປະກາດແລ້ວ.
ດຽວນີ້, CELLS(Rows.Count, 1) ຈະນັບຈຳນວນແຖວຢູ່ໃນຖັນທຳອິດ. ຈາກນັ້ນໃຊ້ End(xlUp).Row ດຽວນີ້ຈະພົບເຫັນແຖວທີ່ໃຊ້ສຸດທ້າຍໃນຂອບເຂດ Excel.
ໃນທີ່ສຸດ, ຂ້ອຍໄດ້ໃຊ້ກ່ອງຂໍ້ຄວາມເພື່ອສະແດງຜົນໄດ້ຮັບ.
ຈາກນັ້ນ, ບັນທຶກ ລະຫັດ ແລະກັບຄືນໄປຫາແຜ່ນວຽກ.
ທີ່ນີ້, ເປີດ ເບິ່ງ ແຖບ >> ຈາກ Macros >> ເລືອກ ເບິ່ງ Macros
ດຽວນີ້, ກ່ອງໂຕ້ຕອບ ຈະປາກົດຂຶ້ນ.
ຈາກນັ້ນ, ຈາກ ຊື່ Macro ເລືອກ LastRow_NonEmpty ຍັງເລືອກປຶ້ມວຽກພາຍໃນ Macros ໃນ .
ສຸດທ້າຍ, ແລ່ນ ທີ່ເລືອກ Macro .
ດັ່ງນັ້ນ, ມັນຈະປາກົດຂຶ້ນກ່ອງຂໍ້ຄວາມສະແດງຕົວເລກແຖວສຸດທ້າຍ.
3. ການນໍາໃຊ້ Rows.Count ສໍາລັບຖັນທີ່ເລືອກໃດໆ
ໂດຍການໃຊ້ຖັນທີ່ເລືອກຢູ່ໃນ VBA, ທ່ານສາມາດຊອກຫາແຖວສຸດທ້າຍໄດ້.
ທໍາອິດ , ເປີດ ຜູ້ພັດທະນາ ແຖບ >> ຈາກນັ້ນເລືອກ Visual Basic
ໜ້າຕ່າງໃໝ່ຂອງ Microsoft Visual Basic for Applications ຈະປະກົດຂຶ້ນ.
ດຽວນີ້, ຈາກ ໃສ່ >> ເລືອກ ໂມດູນ
A ໂມດູນ ຈະຖືກເປີດ.
ຈາກນັ້ນຂຽນລະຫັດຕໍ່ໄປນີ້ໃນ Module .
1428
ຢູ່ນີ້, ຂ້ອຍໄດ້ສ້າງຂັ້ນຕອນຍ່ອຍທີ່ເອີ້ນວ່າ LastRow_AnyColumn, ບ່ອນທີ່ຕົວແປປະເພດ Long LastRow ໄດ້ຖືກປະກາດແລ້ວ.
ຈາກນັ້ນ, ໃນ ໄລຍະ ໄດ້ໃຫ້ຖັນ B ເປັນພາລາມິເຕີ ແລະ Rows.Count , ນີ້ ຈະນັບຈຳນວນແຖວຢູ່ໃນຖັນທີ່ກຳນົດໄວ້ B . ຕໍ່ໄປ, ໃຊ້ End(xlup). ແຖວ ເຊິ່ງຈະຊອກຫາແຖວທີ່ໃຊ້ຫຼ້າສຸດໃນຂອບເຂດ Excel.
ສຸດທ້າຍ, ຂ້າພະເຈົ້າໄດ້ໃຊ້ກ່ອງຂໍ້ຄວາມເພື່ອສະແດງຜົນໄດ້ຮັບ.
ຕໍ່ໄປ, ບັນທຶກ ລະຫັດ ແລະກັບຄືນໄປຫາແຜ່ນວຽກ.
ຈາກນັ້ນ, ເປີດ ເບິ່ງ ແຖບ >> ຈາກ Macros >> ເລືອກ ເບິ່ງ Macros
ທີ່ນີ້, ກ່ອງໂຕ້ຕອບ ຈະປາກົດຂຶ້ນ.
ດຽວນີ້, ຈາກ ຊື່ Macro ເລືອກ LastRow_AnyColumn ຍັງເລືອກປຶ້ມວຽກພາຍໃນ Macros ໃນ .
ສຸດທ້າຍ, ແລ່ນ ທີ່ເລືອກ Macro .
ດັ່ງນັ້ນ, ມັນຈະປາກົດຂຶ້ນກ່ອງຂໍ້ຄວາມສະແດງຕົວເລກແຖວສຸດທ້າຍ.
ການອ່ານທີ່ຄ້າຍຄືກັນ:
- VBA ຊອກຫາໃນຖັນໃນ Excel (7 ວິທີການ)
- ຊອກຫາ ແລະປ່ຽນແທນການໃຊ້ VBA (11 ວິທີ)
- ຊອກຫາການຈັບຄູ່ທີ່ແນ່ນອນໂດຍໃຊ້ VBA ໃນ Excel (5 ວິທີ)
- ວິທີຊອກຫາ String ກັບ VBA ໃນ Excel (8 ຕົວຢ່າງ)
4. ການນໍາໃຊ້ UsedRange ເພື່ອຊອກຫາແຖວສຸດທ້າຍ
ທ່ານສາມາດນໍາໃຊ້ຄຸນສົມບັດ UsedRange ຂອງແຜ່ນງານເພື່ອຊອກຫາອັນສຸດທ້າຍ. ແຖວໂດຍໃຊ້ VBA .
ດຽວນີ້, ເປີດ Developer tab >> ຈາກນັ້ນເລືອກ Visual Basic
ຈາກນັ້ນ, ໜ້າຈໍໃໝ່ຂອງ Microsoft Visual Basic for Applications ຈະປະກົດຂຶ້ນ.
ດຽວນີ້, ຈາກ ໃສ່ >> ເລືອກ ໂມດູນ
A ໂມດູນ ຈະຖືກເປີດ.
ຈາກນັ້ນ, ຂຽນລະຫັດຕໍ່ໄປນີ້ໃສ່ໃນ ໂມດູນ .
3439
ຢູ່ນີ້, ຂ້ອຍໄດ້ສ້າງຂະບວນການຍ່ອຍທີ່ເອີ້ນວ່າ LastRow_UsedRange, ບ່ອນທີ່ຕົວແປປະເພດ Long LastRow ໄດ້ຖືກປະກາດແລ້ວ.
ຕໍ່ໄປ, ກໍານົດ theຕົວແປໂດຍໃຊ້ວິທີ ActiveSheet.UsedRange.Rows ຍັງໃຫ້ ActiveSheet.UsedRange.Rows.Count ເປັນພາລາມິເຕີຂອງ ActiveSheet.UsedRange.Rows , ນີ້ຈະສົ່ງຄືນຄ່າ ແຖວສຸດທ້າຍ.
ຂ້ອຍໄດ້ໃຊ້ກ່ອງຂໍ້ຄວາມເພື່ອສະແດງຜົນ.
ດຽວນີ້, ບັນທຶກ ລະຫັດ ແລະກັບຄືນໄປຫາແຜ່ນວຽກ.
ຫຼັງຈາກນັ້ນ, ເປີດ ເບິ່ງ ແຖບ >> ຈາກ Macros >> ເລືອກ ເບິ່ງ Macros
ຕໍ່ໄປ, ກ່ອງໂຕ້ຕອບ ຈະປາກົດຂຶ້ນ.
ຈາກນັ້ນ, ຈາກ Macro ຊື່ ເລືອກ LastRow_UsedRange ຍັງເລືອກປຶ້ມວຽກພາຍໃນ Macros ໃນ .
ສຸດທ້າຍ, ແລ່ນ ເລືອກ Macro >.
ດັ່ງນັ້ນ, ມັນຈະປາກົດຂຶ້ນກ່ອງຂໍ້ຄວາມສະແດງຕົວເລກແຖວສຸດທ້າຍ.
5. ການໃຊ້ Range.Find to Find Last ແຖວ
ທ່ານສາມາດໃຊ້ Range.Find ວິທີການຊອກຫາແຖວສຸດທ້າຍໂດຍໃຊ້ VBA .
ດຽວນີ້, ເປີດ ຜູ້ພັດທະນາ ແຖບ >> ຈາກນັ້ນເລືອກ Visual Basic
ທີ່ນີ້, ປ່ອງຢ້ຽມໃໝ່ຂອງ Microsoft Visual Basic for Applications ຈະປະກົດຂຶ້ນ.
ດຽວນີ້, ຈາກ ໃສ່ >> ເລືອກ ໂມດູນ
A ໂມດູນ ຈະຖືກເປີດ.
ຈາກນັ້ນຂຽນລະຫັດຕໍ່ໄປນີ້ໃນ ໂມດູນ .
9380
ຢູ່ນີ້, ຂ້ອຍໄດ້ສ້າງຂັ້ນຕອນຍ່ອຍທີ່ເອີ້ນວ່າ Range_Find_Method, ບ່ອນທີ່ Long ປະເພດຕົວແປ LastRow ຖືກປະກາດ .
ຈາກນັ້ນກຳນົດຕົວແປໂດຍໃຊ້ວິທີ Cells.Find . ທີ່ນີ້, ປະກາດ 7ຕົວກໍານົດການ. ໃນ ອັນໃດ ພາຣາມິເຕີທີ່ຂ້ອຍໃຊ້ (“*”) ເຊິ່ງຈະຊອກຫາຕາລາງທີ່ບໍ່ຫວ່າງເປົ່າທຳອິດ. ໃຫ້ A1 ເປັນໄລຍະໃນ ຫຼັງ ພາລາມິເຕີເພື່ອເລີ່ມຕົ້ນ. ໃນ LookAt ພາຣາມິເຕີທີ່ໃຫ້ xlPart ເພື່ອເບິ່ງພາກສ່ວນໃດນຶ່ງຂອງຂໍ້ຄວາມພາຍໃນຕາລາງ.
LookIn:=xlFormulas ພາຣາມິເຕີຈະຊອກຫາ ສູດຖ້າມີ. SearchOrder:=xlByRows ພາຣາມິເຕີຈະຍ້າຍຈາກຂວາຫາຊ້າຍ ແລະຍັງ loops ຂຶ້ນຜ່ານແຕ່ລະແຖວຈົນກວ່າມັນຈະພົບເຫັນຕາລາງທີ່ບໍ່ຫວ່າງເປົ່າ.
MatchCase:=False ພາຣາມິເຕີຈະບອກ ຊອກຫາ ບໍ່ໃຫ້ພິຈາລະນາຕົວພິມໃຫຍ່ ຫຼື ຕົວພິມນ້ອຍ. ເມື່ອພົບບໍ່ຫວ່າງ, ມັນຈະຢຸດ ແລະສົ່ງຄືນເລກແຖວ.
ຂ້ອຍໄດ້ໃຊ້ກ່ອງຂໍ້ຄວາມເພື່ອສະແດງຜົນ.
ດຽວນີ້, ບັນທຶກ ລະຫັດ ແລະກັບຄືນໄປຫາແຜ່ນວຽກ.
ທີ່ນີ້, ເປີດ ເບິ່ງ ແຖບ >> ຈາກ Macros >> ເລືອກ ເບິ່ງ Macros
ດຽວນີ້, ກ່ອງໂຕ້ຕອບ ຈະປາກົດຂຶ້ນ.
ດຽວນີ້, ຈາກ ຊື່ Macro ເລືອກ Range_Find_Method ຍັງເລືອກແຜ່ນງານພາຍໃນ Macros ໃນ .
ສຸດທ້າຍ, ແລ່ນ ທີ່ເລືອກ Macro .
ດັ່ງນັ້ນ, ມັນຈະປາກົດຂຶ້ນກ່ອງຂໍ້ຄວາມສະແດງຕົວເລກແຖວສຸດທ້າຍ.
ສະຫຼຸບ
ໃນບົດຄວາມນີ້, ຂ້າພະເຈົ້າໄດ້ອະທິບາຍ 5 ວິທີທີ່ຈະ VBA ຊອກຫາແຖວສຸດທ້າຍໃນ Excel. ທ່ານສາມາດປະຕິບັດຕາມວິທີການໃດຫນຶ່ງເພື່ອຊອກຫາແຖວສຸດທ້າຍ. ໃນກໍລະນີທີ່ທ່ານມີຄວາມສັບສົນຫຼືຄໍາຖາມກ່ຽວກັບວິທີການເຫຼົ່ານີ້ທ່ານອາດຈະຂຽນຄຳເຫັນຂ້າງລຸ່ມນີ້.
