ªð¦^¦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 : °ß¨ä´L­«¦Û¤vªº¤H¡A¤~§ó«i©óÁY¤p¦Û¤v¡C
ªð¦^¦Cªí ¤W¤@¥DÃD