ªð¦^¦Cªí ¤W¤@¥DÃD µo©«

[µo°Ý] ¦p¦ó¨Ï¥ÎVBA¨ú±o©w¸q¦WºÙªº½d³ò

¦^´_ 1# ABK
½Ð´ú¸Õ¬Ý¬Ý¡AÁÂÁÂ
Sub test()
For Each Ne In Names
    n = n + 1
    Cells(n, 9) = Replace(Ne, "=", "")
Next
End Sub

TOP

¥»©«³Ì«á¥Ñ samwang ©ó 2022-5-5 13:56 ½s¿è
¦^´_  samwang
ÁÂÁÂ samwang¤j !

µ²ªG ¦h¤F 1­Ó
ABK µoªí©ó 2022-5-5 13:10


¨ºÀɮצ³1­ÓÁôÂêºname¡A§Ú¥t¥~copy¸ê®Æ¨ì·sÀɮסA°õ¦æok¦pªþ¥ó¡A½Ð¦A´ú¸Õ¬Ý¬Ý¡AÁÂÁÂ

1.JPG (127.81 KB)

1.JPG

¬¡­¶Ã¯1.zip (12.67 KB)

TOP

        ÀR«ä¦Û¦b : ¡i¥Í©R¦b©I§l¶¡¡j¦òªû»¡¡G¡u¥Í©R¦b©I§l¶¡¡C¡v¤HµLªkºÞ¦í¦Û¤vªº¥Í©R¡A§óµLªk¾×¦í¦º´Á¡AÅý¦Û¤v¥Ã¦í¤H¶¡¡C¬JµM¥Í©R¥h¨Ó³o»òµL±`¡A§Ú­Ì§óÀ³¸Ó¦n¦n¦a·R±¤¥¦¡B§Q¥Î¥¦¡B¥R¹ê¥¦¡AÅý³oµL±`¡BÄ_¶Qªº¥Í©R¡A´²µo¥¦¯uµ½¬üªº¥ú½÷¡A¬M·Ó¥X¥Í©R¯u¥¿ªº»ù­È¡C
ªð¦^¦Cªí ¤W¤@¥DÃD