有个EXCEL问题想请教一下： 大哥，有个Excel上的问题想请教你一下
\u60a8\u597d\uff0c\u6709\u4e2a\u5173\u4e8eexcel\u7684\u95ee\u9898\u60f3\u8bf7\u6559\u4f60\u4e00\u4e0b\u8fd9\u4e2a\u7528\u81ea\u5b9a\u4e49\u51fd\u6570\u4f1a\u65b9\u4fbf\u4e9b\u3002
\u81ea\u5b9a\u4e49\u51fd\u6570\u4ee3\u7801\uff1a
Function Fill(ByVal rng As Range) Dim str$, st1$, st2$, st3$, FinX%, i%, L%, k%, j%, ar() str = rng If str = "" Then Fill = "": Exit Function L = Len(rng) FinX = InStr(str, "-") Do Until IsNumeric(Mid(str, FinX - 1 - k, 1)) = False st1 = st1 & Mid(str, FinX - 1 - k, 1) k = k + 1 Loop st3 = Left(str, FinX - 1 - k) k = 0 Do Until IsNumeric(Mid(str, L - k, 1)) = False st2 = Mid(str, L - k, 1) & st2 k = k + 1 Loop For i = st1 To st2 ReDim Preserve ar(j) ar(j) = st3 & i j = j + 1 Next Fill = Join(ar(), ",")End Function
\u76f4\u63a5\u63d0\u51fa\u95ee\u9898\uff0c\u624d\u80fd\u8ba9\u522b\u4eba\u60f3\u6cd5\u5e2e\u5230\u4f60\u3002\u4f7f\u7528countif()\u51fd\u6570\u548c\u6761\u4ef6\u683c\u5f0f\uff0c\u53ef\u5b8c\u6210\u76f8\u540c(\u6216\u4e0d\u540c)\u7684\u6570\u636e\u6838\u5bf9\uff0c\u5177\u4f53\u9700\u6839\u636e\u4f60\u7684\u5de5\u4f5c\u8868\u683c\u5f0f\u786e\u5b9a\u3002\u5efa\u8bae\uff1a\u79fb\u6b65wps\u5b98\u65b9\u8bba\u575b\u7684wpsforwindows\u680f\u76ee\uff0c\u53d1\u5e16\u6c42\u52a9\u540c\u65f6\uff0c\u4e0a\u4f20\u6837\u672c\u6587\u6863\uff0c\u6807\u6ce8\u9700\u8981\u5b8c\u6210\u7684\u6761\u4ef6\uff0c\u7528\u624b\u5de5\u6a21\u62df\u51e0\u4e2a\u6216\u51e0\u7ec4\u7b54\u6848\uff0c\u4ee5\u4fbf\u5927\u5bb6\u76f4\u89c2\u4e86\u89e3\u4f60\u7684\u9700\u6c42\u540e\uff0c\u63d0\u51fa\u89e3\u51b3\u6cd5\u3002\u8fd8\u53ef\u5728\u767e\u5ea6\u641c\u7d22\u4e2d\u641c\u7d22\u201c\u8dea\u6c42\uff01\u4e0d\u540c\u7684\u6570\u81ea\u52a8\u79fb\u81f3\u4e0b\u4e00\u884c\u4e0e\u4e4b\u5bf9\u9f50\u76f8\u540c\u7684\u6570\u201d\u7684\u5e16\u5b50\uff0c\u5728\u8fd9wps\u8bba\u575b\u7684\u6c42\u52a9\u5e16\u4e2d\uff0c\u6211\u5728\u8be5\u5e16\u5b50\u76844\u30016\u30019\u300113\u697c\uff0c\u6709\u8be6\u7ec6\u89e3\u7b54\u3002
假设原数据在A1:A17中，则：第一步：在B1中写入公式：
="|"&A1
下拉复制公式。
第二步：选中B1:B17，复制，右击B1单元格，选择性粘贴：数值。
第三步：选中B1:B17，调整B列列宽，使B列宽度足够容纳合并后的总字符宽度。然后单击菜单“编辑”——》“内容重排”。至此，B1:B17中的所有字符均合并到B1中了。
最笨、也是最直接有效的办法：
=A1 & "|" & A2 & "|" & A3 & "|" & A4 & …
用公式“=A1&"|"&A2&"|"A3……”
采用多画式格方法，画好后数字标在左边，然后电脑会自动显示出来。
一个比较笨的办法：
假设多个单元格位置为A1:A15，在合并后的单元格中用公式 =A1&"|"&A2&"|"&A3&"|"&A4&"|"&A5&"|"&A6&"|"&A7&"|"&A8&"|"&A9&"|"&A10&"|"&A11&"|"&A12&"|"&A13&"|"&A14&"|"&A15
另一个办法，复杂一点，但是可以处理更多的单元格：
先把EXCEL文件另存为csv格式的文件，再用Word打开这个csv文件，查找“，^p”并全部替换成“|”（注意查找栏和替换栏不用输入引号）即可产生你所需的字符串，然后再粘贴回EXCEL中。
一步到位的办法没有想到,不过可以考虑利用函数解决,如果数据在A1:A20中,B1中输入
=A1&"|"
用自动填充柄下拉到B20,选中B1:B20,复制,选择性粘贴,数值,就将公式结果固定在B1:B20中了,再选中C1,输入
=PHONETIC(B1:B20)
就可以合并了,如果要固定结果,可以选定C1,选择性粘贴,数值,确定.
绛旓細浣嗚娉ㄦ剰锛岀敱浜嶦xcel鐨凪ATCH鍑芥暟涓嶆敮鎸佺洿鎺ヤ娇鐢ㄦ暟缁勫叕寮忥紙濡侷SNUMBER(SEARCH(C2,A:A))锛夎繘琛岀簿纭尮閰嶏紝涓婅堪鍏紡鍦Excel涓鐩存帴杩愯鍙兘鏃犳硶杈惧埌棰勬湡鏁堟灉銆傚洜姝わ紝鎴戜滑闇瑕佺◢浣滆皟鏁淬傛洿瀹炵敤鐨勬柟娉曟槸浣跨敤杈呭姪鍒楋細鍦‥鍒楋紙鎴栦换浣曠┖浣欏垪锛夌殑E2鍗曞厓鏍煎紑濮嬶紝杈撳叆涓涓暟缁勫叕寮忥紙鎸塁trl+Shift+Enter杈撳叆锛岃屼笉鏄粎Ente...
绛旓細鏁扮粍鍏紡锛宱ffice2021浠ヤ笅鐗堟湰闇鎸塩trl+shift+enter銆=INDEX($B:$B,SMALL(IF($A:$A=$D1,ROW($A:$A),4^8),COLUMN(A$1)))&""
绛旓細1銆佸叧浜庤绠椾环鏍肩殑闂锛屽鏋滅矘鍦熺爾浠锋牸3600锛岃繖涓湪鍗曞厓鏍糂2锛岀矇鐓ょ伆56000锛岃繖涓湪鍗曞厓鏍糃2锛岄偅鎬讳环灏卞彲浠ョ敤浠ヤ笅鏂规硶锛歛:鍦ㄤ竴涓┖鐨勫崟鍏冩牸鍐呰緭鍏"=B2+C2"锛岀劧鍚庡洖杞 b:鍦ㄤ竴涓┖鐨勫崟鍏冩牸鍐呰緭鍏"=sum(B2:C2)",鐒跺悗鍥炶溅 2銆佸叧浜庤嚜鍔ㄧ敓鎴愬簭鍙凤紝鏈绠鍗曠殑鏂规硶灏辨槸鐢EXCEL鐨勮嚜鍔ㄦ嫋鎷藉姛鑳斤紝鍗抽変腑鈥1鈥...
绛旓細鍏紡浜岋細鏁堟灉鍥撅紙鍔ㄥ浘鐐瑰紑鏌ョ湅锛屽惁鍒欐挱鏀句笉鍏級锛
绛旓細1銆佸垽鏂殑鏉′欢 2銆佽窡韪暟鎹殑鍖哄煙 3銆佽繑鍥炵鍑犲垪鐨勬暟鎹 4銆佹槸鍚︾簿纭尮閰 鏍规嵁闂鐨勯渶姹锛岃繖涓叕寮忓簲璇ユ槸锛=vlookup(a2,sheet1!$a$2:$f$100,6,true)璇︾粏璇存槑涓涓嬪湪姝lookup鍑芥暟渚嬪瓙涓悇涓弬鏁扮殑浣跨敤璇存槑锛1銆乤2 鏄垽鏂殑鎺夋潯浠讹紝涔熷氨鏄濡傛灉sheet2琛ㄤ腑a鍒楀搴旂殑鏁版嵁鍜宻heet1琛ㄤ腑鐨勬暟鎹浉鍚屾柟...
绛旓細棣栧厛锛屽涓婂浘锛屾寜涓嬮敭鐩樹笂鐨凜TRL閿紝鎸変笅灏卞埆鏉惧紑锛屼箣鍚庯紝浣跨敤榧犳爣宸﹂敭鍘荤偣鍑绘瘡涓琛岀殑琛屾爣(鍗虫樉绀1銆2銆3銆4銆5鈥︹︾殑鏈宸﹁竟鐨勯偅浜涙寜閽)銆傛敞鎰忓摝锛屼笂杩板繀椤诲湪鎸変綇CTRL閿殑鏃跺欎娇鐢ㄥ乏閿幓鐐归夈傛偍鎯冲湪鍝鐨勫墠闈㈡彃鍏ョ┖琛岋紝鎮ㄥ氨閫夋嫨鍝竴琛屻傞夋嫨濂戒簡涔嬪悗锛屽姟蹇呬繚鎸佽鐨勮閫変腑鐘舵侊紝涔嬪悗锛屽湪閫変腑鍖哄煙...
绛旓細1.鍦ㄦ柊鐨勮〃鏍间粠A2璧峰線涓,鍒楀嚭浣犵殑鎵鏈夎彍鍚,濡侫2涓哄皬鐧借彍,A3涓虹┖蹇冭彍.2.鍦˙1杈"琛ㄤ竴",琛ㄧず,B鍒楁槸鏄剧ず琛ㄤ竴涓殑鑿滅殑閲(搴旇鏄挶鍚??),鍦–1杈"琛ㄤ簩",浠ユ绫绘帹.3.鍦˙2杈撳叕寮:=IF(ISNA(INDEX([Book1]Sheet1!$A:$Z,MATCH($A2,[Book1]Sheet1!$A:$A,0),2)),0,INDEX([Book1]Sheet...
绛旓細鍋囪鍘熸暟鎹湪A1:A17涓紝鍒欙細绗竴姝ワ細鍦˙1涓啓鍏ュ叕寮忥細="|"&A1 涓嬫媺澶嶅埗鍏紡銆傜浜屾锛氶変腑B1:B17锛屽鍒讹紝鍙冲嚮B1鍗曞厓鏍硷紝閫夋嫨鎬х矘璐达細鏁板笺傜涓夋锛氶変腑B1:B17锛岃皟鏁碆鍒楀垪瀹斤紝浣緽鍒楀搴﹁冻澶熷绾冲悎骞跺悗鐨勬诲瓧绗﹀搴︺傜劧鍚庡崟鍑昏彍鍗曗滅紪杈戔濃斺斻嬧滃唴瀹归噸鎺掆濄傝嚦姝わ紝B1:B17涓殑鎵鏈夊瓧绗﹀潎鍚堝苟鍒...
绛旓細鍏蜂綋鍏紡涓猴細=INDEX($A$1:$B$19,MATCH(LARGE(IF($C$2:$C$19="",$B$2:$B$19),1),$B$1:$B$19,0),1)鍏紡鐨勮В閲婏細index鍑芥暟锛宨ndex锛堝尯鍩燂紝琛屽彿锛屽垪鍙凤級match锛堟暟鎹紝鍖哄煙锛屽尮閰嶇被鍨嬶級锛0琛ㄧず绮剧‘鍖归厤銆俵arge锛堝尯鍩燂紝1锛夛紝琛ㄧず鍖哄煙涓紝绗竴澶х殑鍊硷紝2灏辫〃绀虹浜屽ぇ鐨勫笺傛暟缁勫叕寮廼f...
绛旓細鏂规硶/姝ラ5/5鍒嗘闃呰杩欐槸涓浠芥潅涔辨棤绔犵殑鎶ヨ〃锛岃鎴戜滑鎶婂畠鍙樺緱鏇村姞鏈夊簭鐐瑰惂銆傜敤Excel鎵撳紑杩欎唤鎶ヨ〃銆2/5鏈绠鍗曟柟娉曟槸鍦ㄥ伐鍏锋爮涓婄偣鍑诲揩鎹锋寜閽 鍗囧簭鎴栬呴檷搴忥紝濡傛灉浣犳壘涓嶅埌鐨勮瘽锛屽彲浠ョ偣鍑汇愭暟鎹戔斺斻愭帓搴忋戙傛煡鐪嬪墿浣1寮犲浘3/5 鏁堟灉灏辨槸杩欐牱鐨勶紝寰堢畝鍗曞惂锛涓涓瀛愯寰椾笘鐣屽緢骞插噣 4/5濡傛灉浣犺寰楄繖鏍...
