- ©«¤l
- 4901
- ¥DÃD
- 44
- ºëµØ
- 24
- ¿n¤À
- 4916
- ÂI¦W
- 238
- §@·~¨t²Î
- Windows 7
- ³nÅ骩¥»
- Office 20xx
- ¾\ŪÅv
- 150
- ©Ê§O
- ¨k
- ¨Ó¦Û
- ¥x¥_
- µù¥U®É¶¡
- 2010-4-30
- ³Ì«áµn¿ý
- 2024-11-3
|
¦^´_ 6# starry1314
VBA¼gÓ¦Ûq¨ç¼Æ¼W¯q¶°¨Ó¸Ñ¨M¤j½d³òÀx¦s®æ¤º®e
±NÀɮ׸ÑÀ£ÁY¨ìOFFICE¼W¯q¶°¥Ø¿ý
C:\Users\[Username]\AppData\Roaming\Microsoft\AddIns
¸ü¤JConnectStr.xla¼W¯q¶°
´N¯à¦b¹q¸£¤¤¨Ï¥Î¸Ó¨ç¼Æ
ConnectStr.zip (8.82 KB)
- Function ConnectStr(Rng As Range, dot As String) 'Rng¬°³sÀx¦s®æ½d³ò¡Adot¬°³sµ²²Å¸¹
- Dim Ay(), i&, s&
- ar = Rng.Value
- For i = 1 To UBound(ar, 1)
- For Each a In Application.Transpose(Application.Index(ar, i))
- If a <> "" Then
- mystr = IIf(mystr = "", a, mystr & a & dot)
- End If
- Next
- ReDim Preserve Ay(s)
- Ay(s) = mystr
- mystr = ""
- s = s + 1
- Next
- ConnectStr = Join(Ay, dot)
- End Function
½Æ»s¥N½X |
|