使用自定义函数快速连接Excel表格中多单元格数据的方法
字符串处理是函数的软肋，动不动就多层嵌套，数组公式，有些功能还无法实现，比如用连接符连接文本，用Excel函数几乎是无法做到的，有了VBA自定义函数，这一切将SO EASY!下面就介绍一个简单的字符串处理函数：
函数名：MYSTR
作 用：用任意连接符连接文本
参数介绍： 第一参数：(必须)指定连接符，可以是文本常量，也可以是单元格引用。忽略空单元格。
第二参数：(必须)需要连接的文本或单元格区域。
第三、四等参数：(可选)同第二参数
效果展示：
创建自定义函数的方法：
新建一个EXCEL文档，只保留一个工作表，其余删除。
按ALT+F11，打开VBE编辑器，新建一个模块，把下面的自定义函数代码复制到模块中，关闭VBE编辑器。
PublicFunction mystr(ll, ParamArray x())
For Each r In x
If IsArray(r) Then
For Each rr In r
If rr > ""Then mystr = mystr & ll & rr
Next
Else
mystr = mystr & ll & r
End If
Next
mystr = Mid$(mystr, 2, Len(mystr))
EndFunction
按F12【另存为】，文件保存类型选择“Excel加载宏”。它将自动存入ADDIN文件夹中。
然后从任意一个EXCEL文件的【开发工具】-【加载宏】中勾选所保存的宏文件名，确定。就可以在工作表中的随心所欲的使用自定义的合并文本函数啦，赶紧的，动手试试吧——
绛旓細鍙傛暟浠嬬粛锛 绗竴鍙傛暟锛(蹇呴』)鎸囧畾杩炴帴绗︼紝鍙互鏄枃鏈父閲忥紝涔熷彲浠ユ槸鍗曞厓鏍煎紩鐢ㄣ傚拷鐣ョ┖鍗曞厓鏍笺傜浜屽弬鏁帮細(蹇呴』)闇瑕佽繛鎺ョ殑鏂囨湰鎴栧崟鍏冩牸鍖哄煙銆傜涓夈佸洓绛夊弬鏁帮細(鍙)鍚岀浜屽弬鏁 鏁堟灉灞曠ず锛氬垱寤鑷畾涔夊嚱鏁鐨勬柟娉曪細鏂板缓涓涓EXCEL鏂囨。锛屽彧淇濈暀涓涓伐浣滆〃锛屽叾浣欏垹闄ゃ傛寜ALT+F11锛屾墦寮VBE缂栬緫鍣紝鏂板缓涓...
绛旓細鍦Excel宸ヤ綔琛ㄧ晫闈笅鎸夌粍鍚堥敭鎵撳紑VBA缂栬緫鍣紝鍗曞嚮鈥滄彃鍏モ濃啋鈥滄ā鍧椻濓紝骞跺湪鍙宠竟鐨勪唬鐮佺獥鍙ｈ緭鍏ヨ嚜瀹氫箟鍑芥暟鐨勭▼搴忎唬鐮併傚崟鍑荤獥鍙ｅ彸涓婅鐨勨滃叧闂濇寜閽叧闂璙BA缂栬緫鍣紝杩斿洖excel宸ヤ綔琛ㄧ晫闈傜涓夛紝excel濡備綍浣跨敤鑷畾涔夊嚱鏁 鍦ㄥ綋鍓嶅伐浣滅翱涓娇鐢ㄥ垱寤虹殑鑷畾涔夊嚱鏁帮紝骞朵笖鍙互鍦ㄥ嚱鏁板垪琛ㄧ殑鈥滅敤鎴峰畾涔夆濈被鍒腑鎵惧埌姝よ嚜...
绛旓細Excel涓寮曠敤鑷畾涔夊嚱鏁鐨勫疄鐜版楠ゅ涓嬶細鎵撳紑Excel2007锛屽垏鎹㈣嚦鈥滃紑鍙戝伐鍏封濋夐」鍗★紝鐐瑰嚮鈥淰isual Basic鈥濇寜閽繘鍏BA缂栫▼鐜銆傚湪VBA鐜涓嬶紝鍙冲嚮鈥淢icrosoft Excel瀵硅薄鈥濓紝鍦ㄥ脊鍑虹殑鑿滃崟涓夋嫨鈥滄彃鍏モ濃啋鈥滄ā鍧椻濄鎺鐫鐐瑰嚮鈥滄彃鍏モ濊彍鍗曚腑鐨勨滆繃绋嬧濄傚湪鎵撳紑鐨勨滄坊鍔犺繃绋嬧濈獥鍙ｄ腑锛岃緭鍏ュ嚱鏁板悕绉帮紝渚嬪鈥淪howI...
绛旓細棣栧厛锛屽弻鍑籇2鍗曞厓鏍硷紝骞惰緭鍏ュ叕寮忕敓鎴怉鍒楁暟鎹殑涓嶉噸澶嶅硷細=INDEX($A$2:$A$8,MATCH(,COUNTIF(D$1:D1,$A$2:$A$8),))杈撳叆瀹屾瘯鍚庯紝宸︽墜鎸変綇Ctrl鍜孲hift锛屽彸鎵嬫寜涓嬪洖杞﹂敭锛屽苟涓嬫媺鍏紡銆傜浜岋紝鎸夐敭鐩樹笂鐨凙lt+F11杩涘叆VBE鐣岄潰銆傜涓夛紝閫夋嫨銆愭彃鍏ャ-銆愭ā鍧椼戞彃鍏ヤ竴涓ā鍧椼傜鍥涳紝鍦ㄥ彸渚х┖鐧藉绮...
绛旓細Excel鎻掑叆鑷畾涔夊嚱鏁鐨勬楠ゅ涓嬶細濡備緥瀛愭墍绀猴紝杩欐椂鍊欐垜浠渶瑕佽绠楃櫨鍒嗘瘮銆傝皟鐢ㄧ郴缁熻嚜甯︾殑鍑芥暟锛屽彂鐜版病鏈夎绠楃櫨鍒嗘瘮鐨勫嚱鏁般傝繖鏃跺欓渶瑕佽嚜瀹氫箟涓涓绠楀嚱鏁帮紝涓鍒囪嚜瀹氫箟鐨勫嚱鏁伴兘闇瑕侀鍏堣緭鍏モ=鈥濄傜劧鍚庢寜鐓ц姹傝緭鍏ヨ绠楀紡銆傛寜涓婨nter(鍥炶溅閿)纭畾锛岃繖鏃跺欏氨璁＄畻鍑烘潵浜嗐鐢绫讳技鐨勬柟娉曟妸杩欎竴鍒楅兘璁＄畻鍑烘潵锛屽彂鐜...
绛旓細1.鍙互鐢╒LOOKUP閰嶅悎Column鍑芥暟浣跨敤锛屼互涓嬪浘涓轰緥锛2.瑕佸湪Sheet2寤虹珛鏁版嵁杩炴帴锛屽垯Sheet2琛ㄧ殑B2鍗曞厓鏍艰緭鍏ュ叕寮忥細=VLOOKUP($A2,Sheet1!$A:$C,COLUMN(),0)鍏紡鍚戝彸鎷栧埌C2鍐嶅悜涓嬫嫋鎷夊鍒讹紝缁撴灉濡備笅锛3.鍏紡瑙ｆ瀽鍙婄煡璇嗘墿灞曪細VLOOKUP 涓殑 V 琛ㄧず鍨傜洿鏂瑰悜銆傚綋姣旇緝鍊间綅浜庢墍闇鏌ユ壘鐨勬暟鎹殑宸﹁竟涓鍒楁椂锛屽彲浠...
绛旓細Len(MyStr) 鈥 1)End Function2銆佺偣鍑汇愭枃浠躲戙愬彟瀛樹负銆戯紝鏂囦欢淇濆瓨绫诲瀷閫夋嫨鈥Excel鍔犺浇瀹忊濄傚畠灏嗚嚜鍔ㄥ瓨鍏DDIN鏂囦欢澶逛腑銆3銆佷粠瑕佷娇鐢ㄦ鍑芥暟鐨EXCEL鏂囦欢鐨勩愬紑鍙戝伐鍏枫-銆愬姞杞藉畯銆戜腑鍕鹃夋墍淇濆瓨鐨勫畯鏂囦欢鍚嶏紝纭畾銆傚氨鍙互鍦ㄥ伐浣滆〃涓殑闅忓績鎵娆茬殑浣跨敤鑷畾涔鐨勬寜鏉′欢杩炴帴鏂囨湰鍑芥暟鍟︺4銆佺湅涓涓嬩娇鐢ㄦ晥...
绛旓細1.鎵ц鈥滃伐鍏封啋瀹忊啋Visual Basic缂栬緫鍣ㄢ濊彍鍗曞懡浠(鎴栨寜鈥淎lt+F11鈥蹇嵎閿)锛屾墦寮Visual Basic缂栬緫绐楀彛銆2.鍦ㄧ獥鍙ｄ腑锛屾墽琛屸滄彃鍏モ啋妯″潡鈥濊彍鍗曞懡浠わ紝鎻掑叆涓涓柊鐨勬ā鍧椻斺旀ā鍧1銆3.鍦ㄥ彸杈圭殑鈥滀唬鐮佺獥鍙ｂ濅腑杈撳叆浠ヤ笅浠ｇ爜锛欶unction V(a,b,h)V = h*(a+b)/2End Function 4.鍏抽棴绐楀彛锛鑷畾涔夊嚱鏁...
绛旓細1銆侀鍏堟墦寮涓涓Excel琛ㄦ牸锛屽湪鑿滃崟鏍忔壘鍒般愬紑鍙戝伐鍏枫戦夐」锛3銆佸湪缂栬緫绐楀彛锛屾垜浠緭鍏ュ涓嬪唴瀹癸細Function鍚堝苟璁＄畻(a,b,c)鍚堝苟璁＄畻=(a+b+c)EndFunction 瀹冪殑鎰忔濇槸锛宎bc涓変釜鍙傛暟鎸夌収鍚堝苟璁＄畻鐨勫嚱鏁拌繘琛岃绠楋紝鍗(a+b+c)銆備箣鍚庢垜浠偣鍑诲叧闂寜閽4銆侀殢鍚庯紝杩斿洖Excel琛ㄦ牸锛岃繖鏃跺鑷畾涔夊嚱鏁宸茬粡璁剧疆瀹屾垚銆
绛旓細(閫氬父鎴戜滑浼氬湪D3鍗曞厓鏍鐢鍏紡 =B3*C3/2 鏉ヨ绠楋紝鐒跺悗鎶婅繖涓叕寮忓悜D鍒椾笅鏂规嫋鍔ㄥ鍒讹紝寰楀埌鍏朵粬鍏紡銆傝繖鍙槸涓涓畝鍗曠殑渚嬪瓙锛岄氳繃瀹冩潵瀛︿範缂栧啓绠鍗曠殑鑷畾涔夊嚱鏁)1銆佹墦寮VBA绐楀彛 鎸堿LT+F11璋冨嚭VBA绐楀彛锛屾彃鍏ヤ竴涓敤鎴锋ā鍧椼2銆佺紪鍐欎唬鐮 閫氬父鑷畾涔夊嚱鏁版槸鐢╢unction鍛戒护寮濮嬬殑锛屽湪杩欎釜鍛戒护鍚庨潰缁欏畠鎸囧畾涓涓...
