- ©«¤l
- 764
- ¥DÃD
- 254
- ºëµØ
- 0
- ¿n¤À
- 1031
- ÂI¦W
- 0
- §@·~¨t²Î
- windows 11
- ³nÅ骩¥»
- OFFICE2021
- ¾\ŪÅv
- 50
- ©Ê§O
- ¨k
- µù¥U®É¶¡
- 2011-5-30
- ³Ì«áµn¿ý
- 2025-8-31
|
´N§Ú©Òª¾ :
¨º·íµM¬O¤£¦æªº°Õ.
§Aªº»Ý¨D¬O¦bÀx¦s®æ¤½¦¡¤ºªº DDE³sµ² ¥iª½±µ°Ñ·Ó¥t¤@Àx¦s®æªº¤º®e°µÅÜ ...
luhpro µoªí©ó 2014-12-10 00:16 
§Úªº·Qªk¤]¬O¥u¯à¥Î INDIRECT ¡A¦ý¥¢®Ä :-(
§Ú§ï¥Îvb ¥Îreplace °µ ¡A¦]¬°«ö·ÓÅvȤj¤p±Æ§Ç,¤@¬q®É¶¡¡A¶·±Æ§Ç¤@¦¸
For Each rng In Range(Cells(i, "b"), Cells(i, "m"))
rng.Replace What:="!'????", Replacement:="!'" & Cells(i, 1), LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
ReplaceFormat:=False
Next rng |
|