ວິ​ທີ​ການ​ເອົາ​ຂໍ້​ຄວາມ​ຫຼື​ຕົວ​ເລກ​ອອກ​ຈາກ​ຫ້ອງ Excel​

  • ແບ່ງປັນນີ້
Michael Brown

ບົດສອນນີ້ຈະສອນທ່ານກ່ຽວກັບວິທີແຍກຂໍ້ຄວາມຈາກຕົວເລກໃນ Excel ໂດຍໃຊ້ສູດຕົ້ນສະບັບ ແລະຟັງຊັນທີ່ກຳນົດເອງ. ນອກນັ້ນທ່ານຍັງຈະຮຽນຮູ້ວິທີການແຍກຂໍ້ຄວາມແລະຕົວເລກອອກເປັນສອງຖັນແຍກຕ່າງຫາກ.

ຈິນຕະນາການນີ້: ທ່ານໄດ້ຮັບຂໍ້ມູນດິບສໍາລັບການວິເຄາະແລະຊອກຫາວ່າຕົວເລກໄດ້ຖືກປະສົມກັບຂໍ້ຄວາມໃນຫນຶ່ງຖັນ. ໃນສະຖານະການສ່ວນໃຫຍ່, ມັນແນ່ນອນວ່າມັນຈະສະດວກກວ່າທີ່ຈະໃຫ້ພວກເຂົາຢູ່ໃນຖັນແຍກຕ່າງຫາກສໍາລັບການກວດສອບທີ່ໃກ້ຊິດ.

ໃນກໍລະນີທີ່ທ່ານກໍາລັງເຮັດວຽກກັບຂໍ້ມູນດຽວກັນ, ທ່ານອາດຈະໃຊ້ຟັງຊັນຊ້າຍ, ຂວາ, ແລະກາງເພື່ອສະກັດຂໍ້ມູນ. ຕົວເລກດຽວກັນຂອງຕົວອັກສອນຈາກຕໍາແຫນ່ງດຽວກັນ. ແຕ່ນັ້ນແມ່ນສະຖານະການທີ່ເຫມາະສົມສໍາລັບການທົດສອບຫ້ອງທົດລອງ. ໃນຊີວິດຈິງ, ທ່ານມີແນວໂນ້ມທີ່ຈະຈັດການກັບຂໍ້ມູນທີ່ແຕກຕ່າງກັນທີ່ຕົວເລກມາກ່ອນຂໍ້ຄວາມ, ຫຼັງຈາກຂໍ້ຄວາມຫຼືລະຫວ່າງຂໍ້ຄວາມ. ຕົວຢ່າງຂ້າງລຸ່ມນີ້ສະຫນອງການແກ້ໄຂຢ່າງແທ້ຈິງສໍາລັບກໍລະນີນີ້.

    ວິທີລຶບຂໍ້ຄວາມແລະຮັກສາຕົວເລກໃນ Excel Cell

    ການແກ້ໄຂເຮັດວຽກຢູ່ໃນ Excel 365, Excel 2021 , ແລະ Excel 2019

    Microsoft Excel 2019 ໄດ້ນຳສະເໜີຟັງຊັນໃໝ່ຈຳນວນໜຶ່ງທີ່ບໍ່ມີຢູ່ໃນລຸ້ນກ່ອນໜ້າ, ແລະພວກເຮົາຈະໃຊ້ໜຶ່ງໃນຟັງຊັນດັ່ງກ່າວ, ຄື TEXTJOIN, ເພື່ອລອກເອົາຕົວໜັງສືອອກຈາກເຊວ. ປະກອບມີຕົວເລກ.

    ສູດທົ່ວໄປແມ່ນ:

    TEXTJOIN("", TRUE, IFERROR(MID( cell, ROW(INDIRECT( "1:")"&LEN(<1)>cell))), 1) *1, ""))

    ໃນ Excel 365 ແລະ 2021, ອັນນີ້ຍັງຈະເຮັດວຽກ:

    TEXTJOIN("", TRUE,IFERROR(MID( cell, SEQUENCE(LEN( cell)), 1) *1, ""))

    ໃນຕອນທໍາອິດ, ສູດຕ່າງໆອາດຈະເບິ່ງເປັນຕາຢ້ານ, ແຕ່ພວກມັນເຮັດວຽກໄດ້ :)

    ຕົວຢ່າງ, ເພື່ອເອົາຂໍ້ຄວາມອອກຈາກຕົວເລກໃນ A2, ໃຫ້ໃສ່ສູດໜຶ່ງຂອງສູດລຸ່ມນີ້ໃນ B2, ແລະຫຼັງຈາກນັ້ນຄັດລອກມັນລົງໃສ່ຫຼາຍເຊລເທົ່າທີ່ຕ້ອງການ.

    ໃນ Excel 365 - 2019:

    =TEXTJOIN("", TRUE, IFERROR(MID(A2, ROW(INDIRECT( "1:"&LEN(A2))), 1) *1, ""))

    ໃນ Excel 2019, ມັນຕ້ອງຖືກໃສ່ເປັນສູດອາເຣດ້ວຍ Ctrl + Shift + Enter . ໃນ dynamic array Excel, ມັນເຮັດວຽກເປັນສູດປົກກະຕິທີ່ສໍາເລັດດ້ວຍປຸ່ມ Enter.

    ໃນ Excel 365 ແລະ 2021:

    =TEXTJOIN("", TRUE, IFERROR(MID(A2, SEQUENCE(LEN(A2)), 1) *1, ""))

    ຜົນ, ຕົວອັກສອນທັງຫມົດແມ່ນ. ເອົາອອກຈາກຕາລາງ ແລະຕົວເລກຖືກເກັບໄວ້:

    ສູດນີ້ເຮັດວຽກແນວໃດ:

    ເພື່ອເຂົ້າໃຈເຫດຜົນໄດ້ດີຂຶ້ນ, ໃຫ້ເລີ່ມການສືບສວນ ສູດຈາກພາຍໃນ:

    ທ່ານໃຊ້ທັງ ROW(INDIRECT("1:"&LEN(string))) ຫຼື SEQUENCE(LEN(string)) ເພື່ອສ້າງລໍາດັບຕົວເລກທີ່ກົງກັບຕົວເລກທັງໝົດ. ຂອງຕົວອັກສອນໃນສະຕຣິງແຫຼ່ງ, ແລະຫຼັງຈາກນັ້ນປ້ອນຕົວເລກລໍາດັບເຫຼົ່ານັ້ນໄປຫາຟັງຊັນ MID ເປັນຕົວເລກເລີ່ມຕົ້ນ. ໃນ B2, ສ່ວນຂອງສູດນີ້ມີລັກສະນະດັ່ງນີ້:

    MID(A2, {1;2;3;4;5;6;7;8;9;10;11;12;13;14;15}, 1)

    ຟັງຊັນ MID ສະກັດແຕ່ລະຕົວອັກສອນຈາກ A2 ໂດຍເລີ່ມຕົ້ນດ້ວຍຕົວທຳອິດ ແລະສົ່ງຄືນພວກມັນເປັນອາເຣ:

    {"2";"1";"0";" ";"S";"u";"n";"s";"e";"t";" ";"R";"o";"a";"d"}

    ອາເຣນີ້ຖືກຄູນດ້ວຍ 1. ຄ່າຕົວເລກຢູ່ລອດໂດຍບໍ່ມີການປ່ຽນແປງ, ໃນຂະນະທີ່ການຄູນຕົວອັກສອນທີ່ບໍ່ແມ່ນຕົວເລກຈະສົ່ງຜົນໃຫ້ #VALUE! ຂໍ້ຜິດພາດ:

    {2;1;0;#VALUE!;#VALUE!;#VALUE!;#VALUE!;#VALUE!;#VALUE!;#VALUE!;#VALUE!;#VALUE!;#VALUE!;#VALUE!;#VALUE!}

    ຟັງຊັນ IFERROR ຈັດການຄວາມຜິດພາດເຫຼົ່ານີ້ ແລະປ່ຽນແທນພວກມັນດ້ວຍສະຕຣິງຫວ່າງເປົ່າ:

    {2;1;0;"";"";"";"";"";"";"";"";"";"";"";""}

    ອາເຣສຸດທ້າຍນີ້ຖືກຮັບໃຊ້ໃຫ້ກັບຟັງຊັນ TEXTJOIN, ເຊິ່ງລວມຄ່າທີ່ບໍ່ຫວ່າງເປົ່າຢູ່ໃນອາເຣ ( ignore_empty argument ຕັ້ງເປັນ TRUE) ໂດຍໃຊ້ສະຕຣິງຫວ່າງເປົ່າ ("") ສໍາລັບຕົວຂັ້ນ:

    TEXTJOIN("", TRUE, {2;1;0;"";"";"";"";"";"";"";"";"";"";"";""})

    ເຄັດລັບ. ສໍາລັບ Excel 2016 - 2007, ການແກ້ໄຂຍັງມີຢູ່, ແຕ່ສູດແມ່ນສັບສົນຫຼາຍ. ທ່ານສາມາດຊອກຫາມັນຢູ່ໃນ tutorial ນີ້: ວິທີການສະກັດຕົວເລກໃນ Excel.

    ຟັງຊັນແບບກຳນົດເອງເພື່ອເອົາຂໍ້ຄວາມອອກຈາກຕົວເລກ

    ການແກ້ໄຂໃຊ້ໄດ້ກັບທຸກລຸ້ນ Excel

    ຫາກທ່ານກຳລັງໃຊ້ Excel ລຸ້ນເກົ່າ ຫຼືຊອກຫາສູດຂ້າງເທິງນີ້ຄືກັນ. ຍາກທີ່ຈະຈື່, ບໍ່ມີຫຍັງຂັດຂວາງທ່ານຈາກການສ້າງຫນ້າທີ່ຂອງທ່ານເອງດ້ວຍ syntax ທີ່ງ່າຍກວ່າແລະຊື່ທີ່ເປັນມິດກັບຜູ້ໃຊ້ເຊັ່ນ RemoveText . ຟັງຊັນທີ່ຜູ້ໃຊ້ກໍານົດ (UDF) ສາມາດຂຽນໄດ້ສອງວິທີ:

    ລະຫັດ VBA 1:

    ນີ້, ພວກເຮົາເບິ່ງແຕ່ລະຕົວອັກສອນໃນສະຕຣິງແຫຼ່ງຫນຶ່ງໂດຍ ຫນຶ່ງແລະກວດເບິ່ງວ່າມັນເປັນຕົວເລກຫຼືບໍ່. ຖ້າເປັນຕົວເລກ, ຕົວລະຄອນຈະຖືກເພີ່ມໃສ່ສະຕຣິງຜົນໄດ້ຮັບ.

    Function RemoveText(str As String) Dim sRes As String sRes = "" For i = 1 To Len(str) If True = IsNumeric(Mid(str, i , 1)) ຫຼັງຈາກນັ້ນ sRes = sRes & Mid(str, i, 1) End If Next i RemoveText = sRes End Function

    ລະຫັດ VBA 2:

    ລະຫັດສ້າງວັດຖຸເພື່ອປະມວນຜົນການສະແດງອອກປົກກະຕິ. ການ​ນໍາ​ໃຊ້ RegExp, ພວກ​ເຮົາ​ເອົາ​ຕົວ​ອັກ​ສອນ​ທັງ​ຫມົດ​ທີ່​ນອກ​ຈາກ​ຕົວ​ເລກ 0-9 ຈາກ​ສະ​ຕ​ຣິ​ງ​ຕົ້ນ​ຕໍ.

    Function RemoveText(str As String ) As String With CreateObject ( "VBScript.RegExp" ) .Global = True .Pattern = "[^0-9]" RemoveText = .Replace(str, "") End with End Function

    ໃນແຜ່ນວຽກຂະຫນາດນ້ອຍ, ທັງສອງລະຫັດຈະປະຕິບັດໄດ້ດີເທົ່າທຽມກັນ. ໃນແຜ່ນວຽກຂະຫນາດໃຫຍ່ທີ່ຟັງຊັນເອີ້ນວ່າຫຼາຍຮ້ອຍຫຼືຫຼາຍພັນເທື່ອ, ລະຫັດ 2 ທີ່ໃຊ້ VBScript.RegExp ຈະເຮັດວຽກໄວຂຶ້ນ.

    ຂັ້ນຕອນລະອຽດໃນການໃສ່ລະຫັດໃນປຶ້ມວຽກຂອງເຈົ້າສາມາດພົບໄດ້ທີ່ນີ້: ວິທີການໃສ່ VBA ລະຫັດໃນ Excel.

    ບໍ່ວ່າທ່ານຈະເລືອກວິທີໃດ, ຈາກທັດສະນະຂອງຜູ້ໃຊ້ສຸດທ້າຍ, ຟັງຊັນທີ່ຈະລຶບຂໍ້ຄວາມ ແລະອອກຈາກຕົວເລກແມ່ນງ່າຍດາຍເຊັ່ນນີ້:

    RemoveText(string)

    ຕົວຢ່າງ, ເພື່ອ ເອົາຕົວອັກສອນທີ່ບໍ່ແມ່ນຕົວເລກອອກຈາກຕາລາງ A2, ສູດໃນ B2 ແມ່ນ:

    =RemoveText(A2)

    ພຽງແຕ່ຄັດລອກມັນລົງໃນຖັນ, ແລະທ່ານຈະໄດ້ຮັບຜົນນີ້:

    ໝາຍເຫດ. ທັງສູດຕົ້ນສະບັບ ແລະຟັງຊັນທີ່ກຳນົດເອງໃຫ້ອອກເປັນ ສະຕຣິງຕົວເລກ . ເພື່ອປ່ຽນເປັນຕົວເລກ, ຄູນຜົນໄດ້ຮັບດ້ວຍ 1, ຫຼືເພີ່ມສູນ, ຫຼືຫໍ່ສູດໃນຟັງຊັນ VALUE. ຕົວຢ່າງ:

    =RemoveText(A2) + 0

    =VALUE(RemoveText(A2))

    ວິທີລຶບຕົວເລກອອກຈາກຕົວໜັງສືໃນ Excel

    ການແກ້ໄຂເຮັດວຽກຢູ່ໃນ Excel 365, Excel 2021 ແລະ Excel 2019

    ສູດ​ການ​ລົບ​ຕົວ​ເລກ​ອອກ​ຈາກ​ສະ​ຕ​ຣິງ​ຕົວ​ອັກ​ສອນ​ແລະ​ຕົວ​ເລກ​ແມ່ນ​ຂ້ອນ​ຂ້າງ​ຄ້າຍ​ຄື​ກັນ​ກັບ​ການ​ສົນ​ທະ​ນາ​ໃນ​ຕົວ​ຢ່າງ​ທີ່​ຜ່ານ​ມາ.

    ສໍາ​ລັບ Excel 365 - 2019:

    TEXTJOIN(" ", ຄວາມຈິງ, IF(ISERR(MID( cell , ROW(INDIRECT("1:"&LEN( cell ) )), 1) *1), MID( cell , ROW(INDIRECT("1:"&LEN( )" cell ))), 1), ""))

    ໃນ Excel 2019, ຈື່ໄວ້ເພື່ອເຮັດໃຫ້ມັນເປັນ ສູດອາເຣ ໂດຍການກົດປຸ່ມ Ctrl + Shift + Enter ຮ່ວມກັນ.

    ສຳລັບ Excel 365 ແລະ 2021:

    TEXTJOIN("", TRUE, IF(ISERROR(MID( cell , SEQUENCE( cell 1)) *1), MID" ( cell , SEQUENCE(LEN( cell )), 1), ""))

    ຕົວຢ່າງ, ເພື່ອຖອດຕົວເລກອອກຈາກສະຕຣິງໃນ A2, ສູດແມ່ນ:

    =TEXTJOIN("", TRUE, IF(ISERR(MID(A2, ROW(INDIRECT( "1:"&LEN(A2) )), 1) *1), MID(A2, ROW(INDIRECT("1:"&LEN(A2))), 1), ""))

    ຫຼື

    =TEXTJOIN("", TRUE, IF(ISERROR(MID(A2, SEQUENCE(LEN(A2)), 1) *1), MID(A2, SEQUENCE(LEN(A2)), 1), ""))

    ດ້ວຍເຫດນີ້, ຕົວເລກທັງໝົດຈະຖືກລຶບອອກຈາກຕາລາງ ແລະ ຕົວອັກສອນຕົວໜັງສືຈະຖືກເກັບໄວ້:

    ດັ່ງທີ່ສະແດງຢູ່ໃນຮູບໜ້າຈໍຂ້າງເທິງ, ສູດການຖອດຕົວອັກສອນຕົວເລກອອກຈາກຕໍາແໜ່ງໃດນຶ່ງໃນສະຕຣິງ: ໃນຕອນຕົ້ນ, ໃນຕອນທ້າຍ, ແລະກາງ. ແນວໃດກໍ່ຕາມ, ມັນມີຂໍ້ຄວນລະວັງ: ຖ້າສະຕຣິງໃດໜຶ່ງ. ເລີ່ມຕົ້ນດ້ວຍຕົວເລກຕາມດ້ວຍຊ່ອງຫວ່າງ , ຊ່ອງຫວ່າງນັ້ນຖືກຮັກສາໄວ້, ເຊິ່ງເຮັດໃຫ້ເກີດບັນຫາຂອງຊ່ອງນຳໜ້າ (ເຊັ່ນໃນ B2).

    ເພື່ອກໍາຈັດ ຍະຫວ່າງກ່ອນຂໍ້ຄວາມ. , ຫໍ່ສູດໃນຟັງຊັນ TRIM ແບບນີ້:

    =TRIM(TEXTJOIN("", TRUE, IF(ISERROR(MID(A2, SEQUENCE(LEN(A2)), 1) *1), MID(A2, SEQUENCE(LEN(A2)), 1), "")))

    ດຽວນີ້, ຜົນການຊອກຫາຂອງເຈົ້າສົມບູນແບບແທ້ໆ!

    ສູດນີ້ເຮັດວຽກແນວໃດ:

    ໂດຍເນື້ອແທ້ແລ້ວ, ສູດເຮັດວຽກຄືກັນກັບທີ່ໄດ້ອະທິບາຍໄວ້ໃນຕົວຢ່າງທີ່ຜ່ານມາ. ຄວາມແຕກຕ່າງແມ່ນວ່າ, ຈາກ array ສຸດທ້າຍໃຫ້ບໍລິການກັບຟັງຊັນ TEXTJOIN, ທ່ານຈໍາເປັນຕ້ອງເອົາຕົວເລກ, ບໍ່ແມ່ນຂໍ້ຄວາມ. ເພື່ອເຮັດໃຫ້ມັນສໍາເລັດ, ພວກເຮົາໃຊ້ການປະສົມປະສານຂອງຟັງຊັນ IF ແລະ ISERROR.

    ຕາມທີ່ທ່ານຈື່,MID(…)+0 ສ້າງ array ຂອງຕົວເລກ ແລະ #VALUE! ຂໍ້ຜິດພາດທີ່ເປັນຕົວແທນຂອງຕົວໜັງສືໃນຕຳແໜ່ງດຽວກັນ:

    {2;1;0;#VALUE!;#VALUE!;#VALUE!;#VALUE!;#VALUE!;#VALUE!;#VALUE!;#VALUE!;#VALUE!;#VALUE!;#VALUE!;#VALUE!}

    ຟັງຊັນ ISERROR ຈັບຂໍ້ຜິດພາດ ແລະສົ່ງຕໍ່ array ຜົນຂອງຄ່າ Boolean ໄປ IF:

    {FALSE;FALSE;FALSE;TRUE;TRUE;TRUE;TRUE;TRUE;TRUE;TRUE;TRUE;TRUE;TRUE;TRUE;TRUE}

    ເມື່ອຟັງຊັນ IF ເຫັນ TRUE (ຂໍ້ຜິດພາດ), ມັນຈະແຊກຕົວໜັງສືທີ່ສອດຄ້ອງກັນເຂົ້າໄປໃນອາເຣທີ່ປະມວນຜົນແລ້ວດ້ວຍການຊ່ວຍເຫຼືອຂອງຟັງຊັນ MID ອື່ນ. ເມື່ອຟັງຊັນ IF ເຫັນ FALSE (ຕົວເລກ), ມັນຈະແທນທີ່ມັນດ້ວຍສະຕຣິງຫວ່າງເປົ່າ:

    {"";"";"";" ";"S";"u";"n";"s";"e";"t";" ";"R";"o";"a";"d"}

    ອາເຣສຸດທ້າຍນີ້ຖືກສົ່ງຜ່ານໄປໃຫ້ TEXTJOIN, ດັ່ງນັ້ນມັນຈຶ່ງປະກອບຕົວໜັງສື ແລະສົ່ງຜົນອອກມາ. ຜົນໄດ້ຮັບ.

    ຟັງຊັນແບບກຳນົດເອງເພື່ອເອົາຕົວເລກອອກຈາກຂໍ້ຄວາມ

    ໂຊລູຊັ່ນໃຊ້ໄດ້ກັບທຸກລຸ້ນ Excel

    ຈື່ໄວ້ວ່າຄວນເກັບຮັກສາສູດທີ່ເຂັ້ມແຂງໄວ້. ງ່າຍໆ, ຂ້ອຍຈະແບ່ງປັນລະຫັດຂອງຟັງຊັນທີ່ຜູ້ໃຊ້ກຳນົດເອງ (UDF) ເພື່ອຖອດລະຫັດຕົວເລກອອກ.

    ລະຫັດ VBA 1:

    Function RemoveNumbers(str As String) Dim sRes As String sRes = "" ສໍາລັບ i = 1 To Len(str) ຖ້າ False = IsNumeric(Mid(str, i, 1)) ຫຼັງຈາກນັ້ນ sRes = sRes & Mid(str, i, 1) End If Next i RemoveNumbers = sRes End Function

    VBA code 2:

    Function RemoveNumbers(str As String) As String with CreateObject ( "VBScript.RegExp" ) .Global = True .Pattern = "[0-9]" RemoveNumbers2 = .Replace(str, "" ) End With End Function

    ຕາມກໍລະນີຂອງຟັງຊັນ RemoveText, ລະຫັດທີສອງແມ່ນດີກວ່າທີ່ຈະໃຊ້ໃນ. ໃຫຍ່worksheets ເພື່ອເພີ່ມປະສິດຕິພາບ.

    ເມື່ອລະຫັດຖືກເພີ່ມໃສ່ປຶ້ມວຽກຂອງທ່ານ, ທ່ານສາມາດເອົາຕົວເລກທັງໝົດອອກຈາກຕາລາງໄດ້ໂດຍໃຊ້ຟັງຊັນທີ່ກຳນົດເອງນີ້:

    RemoveNumbers(string)

    ໃນກໍລະນີຂອງພວກເຮົາ, ສູດໃນ B2 ແມ່ນ:

    =RemoveNumbers(A2)

    ເພື່ອຕັດຍະຫວ່າງຊັ້ນນໍາ ຖ້າມີ, ໃຫ້ວາງຟັງຊັນແບບກຳນົດເອງພາຍໃນ TRIM ຄືກັບທີ່ເຈົ້າຕ້ອງການສູດຕົ້ນສະບັບ:

    =TRIM(RemoveNumbers(A2))

    <0

    ແຍກຕົວເລກ ແລະຂໍ້ຄວາມອອກເປັນຖັນແຍກກັນ

    ໃນສະຖານະການທີ່ທ່ານຕ້ອງການແຍກຂໍ້ຄວາມ ແລະຕົວເລກອອກເປັນສອງຖັນ, ມັນຈະເປັນການດີທີ່ຈະເຮັດວຽກໃຫ້ສຳເລັດດ້ວຍສູດດຽວ. , ຕົກລົງ? ສໍາລັບນີ້, ພວກເຮົາພຽງແຕ່ລວມລະຫັດຂອງຫນ້າທີ່ RemoveText ແລະ RemoveNumbers ເຂົ້າໄປໃນຫນຶ່ງຟັງຊັນ, ທີ່ມີຊື່ວ່າ SplitTextNumbers , ຫຼືພຽງແຕ່ Split , ຫຼື. ອັນໃດກໍໄດ້ :)

    ລະຫັດ VBA 1:

    Function SplitTextNumbers(str As String , is_remove_text As Boolean ) As String Dim sNum, sText, sChar As String sCurChar = sNum = sText = "" ສໍາລັບ i = 1 To Len(str) sCurChar = Mid(str, i, 1) ຖ້າ True = IsNumeric(sCurChar) ຫຼັງຈາກນັ້ນ sNum = sNum & sCurChar Else sText = sText & sCurChar End ຖ້າຕໍ່ໄປ i If True = is_remove_text ຫຼັງຈາກນັ້ນ SplitTextNumbers = sNum Else SplitTextNumbers = sText End ຖ້າຟັງຊັນສິ້ນສຸດ

    ລະຫັດ VBA 2:

    Function SplitTextNumbers(str As String , is_removean) ດ້ວຍ CreateObject ( "VBScript.RegExp" ) .Global = True If True = is_remove_text Then .Pattern = "[^0-9]" Else.Pattern = "[0-9]" End If SplitTextNumbers = .Replace(str, "") End With End Function

    ຟັງຊັນແບບກຳນົດເອງໃໝ່ຂອງພວກເຮົາຕ້ອງການສອງ argument:

    SplitTextNumbers(string, is_remove_text)

    ຢູ່ໃສ is_remove_text ເປັນຄ່າ Boolean ທີ່ຊີ້ບອກວ່າຕົວອັກສອນໃດທີ່ຈະລອກອອກ:

    • TRUE ຫຼື 1 - ເອົາຂໍ້ຄວາມອອກ ແລະຮັກສາຕົວເລກ
    • FALSE ຫຼື 0 - ເອົາຕົວເລກອອກ ແລະຮັກສາຂໍ້ຄວາມ

    ສຳ​ລັບ​ຊຸດ​ຂໍ້​ມູນ​ຕົວ​ຢ່າງ​ຂອງ​ພວກ​ເຮົາ, ສູດ​ຈະ​ໃຊ້​ແບບ​ຟອມ​ນີ້:

    ເພື່ອ​ລຶບ​ຕົວ​ອັກ​ສອນ​ທີ່​ບໍ່​ແມ່ນ​ຕົວ​ເລກ:

    =SplitTextNumbers(A2, TRUE)

    ເພື່ອ​ລຶບ​ຕົວ​ເລກ. :

    =SplitTextNumbers(A2, FALSE)

    ເຄັດລັບ. ເພື່ອຫຼີກເວັ້ນບັນຫາທີ່ອາດເກີດຂຶ້ນຂອງຊ່ອງນໍາ, ຂ້າພະເຈົ້າແນະນໍາໃຫ້ຫໍ່ສູດທີ່ເອົາຕົວເລກອອກຢູ່ໃນຟັງຊັນ TRIM:

    =TRIM(SplitTextNumbers(A2, FALSE))

    ເຄື່ອງມືພິເສດເພື່ອເອົາຕົວເລກ ຫຼືຂໍ້ຄວາມອອກ

    ສໍາລັບຜູ້ທີ່ເຮັດ ບໍ່ມັກການຊັບຊ້ອນສິ່ງທີ່ບໍ່ຈຳເປັນ, ຂ້ອຍຈະສະແດງວິທີການລຶບຂໍ້ຄວາມ ຫຼືຕົວເລກໃນ Excel.

    ສົມມຸດວ່າ Ultimate Suite ຂອງພວກເຮົາຖືກເພີ່ມໃສ່ໂບ Excel ຂອງທ່ານ, ນີ້ແມ່ນສິ່ງທີ່ທ່ານເຮັດ:

    1. ໃນແຖບ Ablebits Data , ໃນກຸ່ມ Text , ຄລິກ Remove > Remove Characters .

  • ຢູ່ໃນແຖບຂອງສ່ວນເສີມ, ເລືອກຊ່ວງແຫຼ່ງທີ່ມາ, ເລືອກຕົວເລືອກ ລຶບຊຸດຕົວອັກສອນອອກ , ແລະເລືອກ ຂໍ້ຄວາມ ຕົວອັກສອນ ຫຼື ຕົວເລກ ຕົວອັກສອນ ໃນລາຍການແບບເລື່ອນລົງ.
  • ກົດ ເອົາອອກ ແລະເພີດເພີນກັບຜົນໄດ້ຮັບ :)
  • ເຄັດລັບ. ຖ້າຜົນໄດ້ຮັບປະກອບມີບາງຊ່ອງຊັ້ນນໍາ, Trim Spacesເຄື່ອງ​ມື​ຈະ​ລົບ​ລ້າງ​ພວກ​ເຂົາ​ໃນ​ເວ​ລາ​ທີ່​ບໍ່​ມີ​.

    ນັ້ນຄືວິທີລຶບຂໍ້ຄວາມ ຫຼືຕົວເລກອອກຈາກສະຕຣິງໃນ Excel. ຂ້າພະເຈົ້າຂໍຂອບໃຈທ່ານສໍາລັບການອ່ານແລະຫວັງວ່າຈະໄດ້ພົບທ່ານໃນ blog ຂອງພວກເຮົາໃນອາທິດຕໍ່ໄປ! Ultimate Suite - ລຸ້ນທົດລອງ (ໄຟລ໌ .exe)

    Michael Brown ເປັນຜູ້ທີ່ມີຄວາມກະຕືລືລົ້ນທາງດ້ານເທກໂນໂລຍີທີ່ອຸທິດຕົນທີ່ມີຄວາມກະຕືລືລົ້ນໃນຂະບວນການທີ່ສັບສົນໂດຍນໍາໃຊ້ເຄື່ອງມືຊອບແວ. ດ້ວຍປະສົບການຫຼາຍກວ່າໜຶ່ງທົດສະວັດໃນອຸດສາຫະກຳເທັກໂນໂລຍີ, ລາວໄດ້ເນັ້ນທັກສະໃນ Microsoft Excel ແລະ Outlook, ເຊັ່ນດຽວກັນກັບ Google Sheets ແລະ Docs. blog ຂອງ Michael ແມ່ນອຸທິດຕົນເພື່ອແບ່ງປັນຄວາມຮູ້ແລະຄວາມຊໍານານຂອງລາວກັບຜູ້ອື່ນ, ສະຫນອງຄໍາແນະນໍາແລະຄໍາແນະນໍາທີ່ງ່າຍຕໍ່ການຕິດຕາມເພື່ອປັບປຸງຜົນຜະລິດແລະປະສິດທິພາບ. ບໍ່ວ່າທ່ານຈະເປັນມືອາຊີບທີ່ມີລະດູການຫຼືຜູ້ເລີ່ມຕົ້ນ, blog ຂອງ Michael ສະເຫນີຄວາມເຂົ້າໃຈທີ່ມີຄຸນຄ່າແລະຄໍາແນະນໍາພາກປະຕິບັດສໍາລັບການໄດ້ຮັບປະໂຫຍດສູງສຸດຈາກເຄື່ອງມືຊອບແວທີ່ຈໍາເປັນເຫຼົ່ານີ້.