- ©«¤l
- 2035
- ¥DÃD
- 24
- ºëµØ
- 0
- ¿n¤À
- 2031
- ÂI¦W
- 0
- §@·~¨t²Î
- Win7
- ³nÅ骩¥»
- Office2010
- ¾\ŪÅv
- 100
- ©Ê§O
- ¨k
- µù¥U®É¶¡
- 2012-3-22
- ³Ì«áµn¿ý
- 2024-2-1
|
¥»©«³Ì«á¥Ñ c_c_lai ©ó 2016-3-16 12:51 ½s¿è
¦^´_ 4# takeshilin88
¸Õ¸Õ¬Ý- Function RangetoHTML(rng As Range)
- Dim rng2 As Range, txt As String
-
- For Each rng2 In rng
- If rng2 <> "" Then
- txt = txt & " " & rng2.Text
- End If
- Next
- RangetoHTML = txt
- End Function
½Æ»s¥N½X |
|