excel表格里有很多列，其中一列的数据有重复的，怎么样同时删除这行和其他对应的信息？ excel如何删除重复数据？（删除A列重复数据，同时删除B列...
excel\u8868\u683c\u4e2d\u5220\u9664\u67d0\u5217\u91cd\u590d\u7684\u7684\u5185\u5bb9\uff0c\u5176\u6240\u5728\u884c\u4e5f\u76f8\u5e94\u5220\u9664.\u4ee5\u4f60\u7684A\u5217 \u548c D \u5217 \u4e3a\u91cd\u590d\u4f9d\u636e
1\u3001A\u5217\u6392\u5e8f
2\u3001\u5de5\u5177\u680f-----\u5b8f------\u7f16\u8f91\u5668-----\u53cc\u51fbSheet1\u8868------\u53f3\u4fa7\u7a7a\u767d\u5904\u8f93\u5165\u4ee3\u7801
Option Explicit
Private Sub CommandButton1_Click()
\u5220\u9664\u91cd\u590d\u884c
End Sub
3\u3001\u672c\u5bf9\u8bdd\u6846------\u5de5\u5177\u680f----\u63d2\u5165----\u6a21\u5757-----\u53cc\u51fb\u6a21\u57571-----\u53f3\u4fa7\u8f93\u5165\u4ee3\u7801
Option Explicit
Sub \u5220\u9664\u91cd\u590d\u884c()
Dim iR As Long
Application.ScreenUpdating = False
iR = [a65536].End(xlUp).Row
Range("F3:F" & iR).FormulaR1C1 = "=IF(AND(RC[-3]=R[-1]C[-3],RC[-5]=R[-1]C[-5]),NA(),"""")"
Range("F1:F" & iR).SpecialCells(xlCellTypeFormulas, 16).EntireRow.Delete
Columns("F:F").ClearContents
Application.ScreenUpdating = True
End Sub
\u5173\u95ed \u8be5\u5bf9\u8bdd\u6846
4\u3001\u53f3\u952e\u70b9\u51fbexcel\u5de5\u5177\u680f\u7a7a\u767d\u5904------\u9009\u62e9 \u63a7\u4ef6\u5de5\u5177\u7bb1------\u5355\u51fb\u91cc\u9762\u7684 \u547d\u4ee4\u6309\u94ae------\u5728excel\u8868\u683c\u7a7a\u767d\u5904\u753b\u51fa\u6309\u94ae--------\u53f3\u51fb\u6309\u94ae----\u67e5\u770b\u4ee3\u7801----\u53cc\u51fbsheet1----\u53f3\u4fa7\u51fa\u73b0\u7b2c\u4e00\u4e2a\u4ee3\u7801------\u53cc\u51fb\u6a21\u57571-----\u53f3\u4fa7\u51fa\u73b0\u7b2c\u4e8c\u4e2a\u4ee3\u7801-----\u5173\u95ed\u8be5\u5bf9\u8bdd\u6846
5\u3001\u70b9\u51fb \u63a7\u4ef6\u5de5\u5177\u7bb1 \u5de6\u4e0a\u89d2 \u6309\u94ae \u65e2 \u63a8\u51fa\u8bbe\u8ba1\u6a21\u5f0f
6\u3001\u70b9\u51fb\u6309\u94ae------A\u5217\u548cD\u5217\u540c\u65f6\u91cd\u590d\u7684\u6570\u636e\u5220\u9664\u591a\u4f59\u7684
**********************************************\u4e3a\u5b89\u5168\u8003\u8651 \u4f60\u8981\u505a\u5907\u4efd\u8868**********************8****************
1\u3001\u9996\u5148\uff0c\u6211\u4eec\u6253\u5f00\u6211\u4eec\u7535\u8111\u4e0a\u9762\u7684excel\uff0c\u7136\u540e\u6211\u4eec\u5728\u91cc\u9762\u8f93\u5165\u4e00\u4e9b\u6570\u5b57\u3002
2\u3001\u7136\u540e\u6211\u4eec\u9009\u4e2d\u8fd9\u4e9b\u6570\u5b57\u7684\u5355\u5143\u683c\u3002
3\u3001\u7136\u540e\u6211\u4eec\u70b9\u51fb\u5de5\u5177\u680f\u4e2d\u7684\u6570\u636e\uff0c\u4e4b\u540e\u6211\u4eec\u70b9\u51fb\u5220\u9664\u91cd\u590d\u9879\u3002
4\u3001\u5f39\u51fa\u7684\u754c\u9762\uff0c\u6211\u4eec\u70b9\u51fb\u786e\u5b9a\u3002
5\u3001\u8fd9\u6837\u6211\u4eec\u5c31\u5220\u9664\u91cd\u590d\u9879\u4e86\uff0c\u6211\u4eec\u70b9\u51fb\u786e\u5b9a\u5c31\u53ef\u4ee5\u4e86\u3002
如果你是要保留一行数据的话用下面这个。
在空白列输入：
=if(countif(a$1:a1,a1)>1,"该行a列是数据有重复","")
下拉填充后，对该列进行排序或筛选再删除行就好了。
如果你是要删除所有这类的数据的话，用下面的公式。
在空白列输入：
=if(countif(a:a,a1)>1,"该行a列是数据有重复","")
之后操作同上
请对原表格插入A列，填充入序列作次序标记，
设B列的数据有重复，请在空白列如F列输入公式：
=coundif(B:B,B1)
下拉复制，
对F列排序，删除大于1的全部行，
对A列排序回复原次序，并删除不要的列。
绛旓細1銆佹墦寮闇瑕佹搷浣滅殑EXCEL琛ㄦ牸锛鍙戠幇鏁版嵁鐩稿樊杈冨ぇ锛屾暟鎹皬鐨勬煴褰㈠浘鍑犱箮鐪嬩笉鍒般2銆佸湪鍥捐〃涓閫変腑鏁版嵁鍒楀皬鐨勬煴褰㈠浘锛岄氳繃榧犳爣鍙抽敭閫夋嫨鈥滆缃暟鎹郴鍒楁牸寮忊濄3銆侀夋嫨鈥滄鍧愭爣杞粹濓紝鐒跺悗鐐瑰嚮纭畾杩斿洖EXCEL鍗冲彲銆4銆佽繑鍥濫XCEL琛ㄦ牸锛屽彂鐜版暟鎹浉宸緢澶х殑鐩稿叧鏁版嵁鍚屾椂鐢ㄦ煴鐘跺浘灞曠ず鎿嶄綔瀹屻
绛旓細1銆侀鍏堟墦寮excel锛2銆佹妸闇瑕佸鐞嗙殑鍒楀鍒跺埌涓涓柊鐨勫伐浣滆〃锛3銆佸湪鑿滃崟鏍忎腑閫変腑鏁版嵁鏍忥紝4銆佺劧鍚庨変腑闇瑕佸垹闄ら噸澶嶉」鐨勫垪锛岀偣鍑绘暟鎹爮涓嬬殑鍒犻櫎閲嶅椤锛5銆佸湪寮瑰嚭鐨勫垹闄ら噸澶嶉」瀵硅瘽妗嗕腑锛岄夋嫨闇瑕佸鐞嗙殑鍒楀悗锛岀偣鍑荤‘瀹氾紝6銆佽繖鏃跺垪宸茬粡鍙樻垚娌℃湁閲嶅椤圭殑鍒椾簡锛屽畬鎴愭晥鏋滃浘銆
绛旓細1.A鍒涓湁濡備笅鏁版嵁锛屽彧瀵规瘡涓鍗曞厓鏍间腑鏁版嵁鐨勫悗涓変綅杩涜绱姞姹傚拰锛2.杈撳叆鍏紡濡備笅锛屽叕寮忚В閲婏細鍒╃敤right姹傚悗涓変綅锛屽埄鐢╲alue灏唕ight鍙栧埌鐨勬枃鏈浆鎹负鏁板硷紝鍐嶅埄鐢╯um姹傚拰锛屼负浜嗘眰A1:A20鐨勫拰锛屽埄鐢ㄦ暟缁勫叕寮忥細3.Ctrl+Shift+Enter涓夐敭缁撴潫鏁扮粍鍏紡锛屽緱鍒扮粨鏋滃涓嬶細
绛旓細4) 鍙﹀瓨鏂板伐浣滅翱.
绛旓細=閫忚琛鍑芥暟(鏁版嵁閫忚琛ㄩ夐」鍗★紝閫夋嫨鈥滄暟鎹濋夐」鍗★紝鐒跺悗閫夋嫨鈥淎鈥鍒楋紝閫夋嫨鈥滅1鍒扮5鍒椻)杩欎釜鍏紡浼氳繑鍥濧鍒椾腑绗1鍒扮5鍒楃殑鍊笺備互涓婃槸涓浜涘父鐢ㄧ殑鏂规硶锛屽彲浠ユ牴鎹叿浣撴儏鍐甸夋嫨涓嶅悓鐨勬彁鍙栨柟娉曘傚彲浠ヤ娇鐢Excel涓鐨勭瓫閫夊姛鑳芥潵鎻愬彇鎸囧畾鍒楃殑鍐呭銆傞鍏堬紝閫変腑闇瑕佺瓫閫夌殑鍖哄煙锛岀劧鍚庣偣鍑烩滄暟鎹濋夐」鍗′腑鐨勨...
绛旓細濡傝溅杈嗙墝鐓у彿鍦ˋ鍒楋紝鏌ユ壘12345鍦ˋ鍒楀嚭鐜扮殑娆℃暟 =COUNTIF(A:A,"12345")瑕佹樉绀哄湪鍝噷鐨勮瘽 B2杈撳叆鍏紡 =IF(COUNTIF(A:A,"12345")>=1,A2,"")
绛旓細1.灏嗗厜鏍囬殢渚挎彃鍏ュ綋鍓嶅伐浣滆〃鐜版煇澶勩2.鐐瑰嚮鑿滃崟锛氣滄枃浠垛-鈥滈〉闈㈣缃濆璇濇涓紝閫夋嫨鈥滃伐浣滆〃鈥濋夐」妗嗭紝鍦ㄦ瀵硅瘽妗嗕腑鐨勨滄墦鍗板尯鍩熲濋夐」鏍忎腑鍗曞嚮绾㈢澶达紝鍗冲彲杩涘叆閫夋嫨鎵撳嵃鑼冨洿锛岃繖鏃跺欎綘鍙宸ヤ綔琛ㄤ腑閫夋嫨闇瑕佹墦鍗扮殑閭ｅ嚑鍒椼3.閫変腑瑕佹墦鍗扮殑鍑犲垪鍚庯紝鍦ㄥ伐浣滆〃涓氨浼氭樉绀哄儚铓傝殎鏍风殑閫夋嫨鍖猴紝杩欎釜鈥樺儚铓傝殎鏍...
绛旓細1.鎵撳紑鐢佃剳锛屾煡鎵惧苟鍙屽嚮excel2016琛ㄦ牸杞欢;2.鍙屽嚮鎵撳紑exel2016琛ㄥ崟杞欢鍚庯紝瀵硅〃鍗曚腑閮ㄥ垎鏁板瓧鍐呭杩涜缂栬緫锛屼互鑾峰緱鏇磋缁嗙殑淇℃伅;3.缂栬緫鏁板瓧鍚庯紝鍏堥夋嫨B鍒楃殑鍗曞厓鏍硷紝浠ヤ究鎻愬彇B鍒楃殑杈呭姪鍒;4.閫夋嫨瀹冧箣鍚庯紝鍦ㄧ紪杈戝瓧娈涓杈撳叆鍏紡鈥=left(A1,4)鈥濄侺eft琛ㄧず浠庡乏寮濮嬶紝number4琛ㄧず鎻愬彇鐨勪綅鏁般5.杈撳叆姝ｇ‘鐨...
绛旓細"绗竴鍒楋細1锛3锛5锛涚浜屽垪锛2锛3锛4锛涚涓夊垪锛5锛6锛7锛涚鍥涘垪锛2锛5锛0锛涚浜斿垪锛1锛3锛5锛涚鍏垪锛1锛3锛6锛涚涓冨垪锛9锛3锛2锛涚鍏垪锛1锛5锛5锛涚涔濆垪锛1锛3锛4锛涚鍗佸垪锛6锛3锛7锛涚鍗佷竴鍒楋細1锛3锛5銆傜幇鍦ㄨ杈撳嚭锛1锛3锛4锛傚拰锛1锛3锛5锛傚拰锛1锛3锛6锛傝繖涓...
绛旓細1銆佸湪鎵撳紑鐨EXCEL鏂囦欢涓偣鍑绘墦寮棰勮鎸夐挳銆2銆佹鏃跺彲浠ュ湪鎵撳嵃棰勮涓湅鍒拌鏂囦欢鏈2椤碉紝鍚屾椂涓鍒楄〃鏍鍦ㄧ浜岄〉銆3銆佺偣鍑诲乏涓婅鐨勯〉闈㈣缃繘鍏ャ4銆佸湪鍑虹幇鐨勯〉闈㈣缃涓灏嗙缉鏀炬瘮渚嬭缃负70%浠ュ悗鐐瑰嚮纭畾鎸夈5銆佹鏃跺彲浠ョ湅鍒颁箣鍓嶇殑涓ら〉棰勮宸茬粡琚缃负涓椤典簡銆6銆佺偣鍑昏椤甸潰宸︿笂瑙掔殑鎵撳嵃鎸夐挳銆7銆佸湪寮瑰嚭鐨...
