[文本处理] [已解决]excel表A列内容有不同数量的重复，A列相同的行，取B列数字最大的那一行

13545876873

求助大哥们：这个要怎么实现啊 ；  如果A列相同的行对应的B列数值，是一样的，只需要复制其中的一个就行了

ppll2030

回复 1# 13545876873


    这个直接操作表格，比写脚本还要快啊。
在C列之前插入一列空白列，然后在C2单元格填写公式 “=MAX(IF(A:A=A2,B:B))”,然后下拉填充所有单元格。
在C2单元格使用条件格式，新建规则，使用公式 “=B2=C2”,然后点格式选择一个颜色，当条件成立是就会显示该颜色了。
选择C2单元格，双击下拉填充得到符合条件的结果。
在通过颜色筛选，把无颜色标记的所有行全部删除，剩下的就是你要的结果了。

GIF太大，点击或是拖拽到新窗口查看吧

aloha20200628

回复 1# 13545876873

将表1电子表格文件存为 1.csv，运行以下代码生成 2.csv，再用 excel 打开即可...
备注：以下代码存为 test.bat 运行和 1.csv 同目录...

@echo off &setlocal enabledelayedexpansion
sort /rec 8192 1.csv /o 11.csv
(for /f "delims=" %%A in (11.csv) do for /f "tokens=1-2 delims=," %%a in ("%%~A") do (
	if "%%~a"=="!_a!" if %%b gtr !_b! set "v=%%A"
	if "%%~a" neq "!_a!" if defined v echo,!v!&set "_b=" &set "v="
	set "_a=%%a" &if not defined _b set "_b=%%b" &if not defined v set "v=%%A"
)
if defined v echo,!v!)>2.csv
::del /q 1.csv 11.csv
endlocal&pause&exit/b
复制代码

13545876873

回复 2# ppll2030 大哥，你的图片看不太清哈。 我试了你的方法，
这个函数得到的结果，是B列的最大值，不行啊

13545876873

回复 3# aloha20200628
大哥，我试了你的这个方法，有点问题呀
这是文件夹里的内容：
这是表1内容：
这是2.csv内容：

ppll2030

回复 4# 13545876873


    GIF太大，点击或是拖拽到新窗口查看吧
不行就把下面地址复制到新窗口打开

图片地址： https://ibb.co/RDWW6Cf

ppll2030

回复 5# 13545876873

你的电脑肯定有问题。

大佬的脚本，我也测试了。结果是一致的。除了没有颜色

ppll2030

回复 8# 13545876873


    啊。对了，忘了说了，输入了函数后，同时按下Ctrl+Shift+Enter完成才能得到正确的值。

aloha20200628

回复 5# 13545876873

输出 1.csv 之前一定先按A列排完序的！
3楼代码已订正，先对 1.csv 排序再处理...
如须删除 1.csv, 11.csv 文件可剔除第9行开头的 :: 前缀即可...

flashercs

在ThisWorkbook新建VBA宏

Sub SortAndFilter()
' Order by Column A Asc,B Desc,and select B Max value rows into Sheet2.
On Error Resume Next
Dim rng As Range, oSort As Sort, sht1 As Worksheet, sht2 As Worksheet, i As Long, ii As Long
Dim col1, col2, aValue
col1 = 1 ' 第一列,有重复值
col2 = 2 ' 第二列,取最大值
Application.ScreenUpdating = False
With ThisWorkbook
    Set sht1 = .Worksheets(1)
    Set sht2 = .Worksheets.Add(After:=.Worksheets(.Worksheets.Count))
    Set rng = sht1.UsedRange
    Set oSort = sht1.Sort
    With oSort
        .SortFields.Clear
        .SortFields.Add rng.Columns(col1), xlSortOnValues, xlAscending
        .SortFields.Add rng.Columns(col2), xlSortOnValues, xlDescending
        .SetRange rng
        .Header = xlYes
        .MatchCase = False
        .SortMethod = xlPinYin
        .Apply
    End With
    rng.Rows(1).Copy sht2.Rows(1)
    ii = 2
    aValue = Null
    For i = 2 To rng.Rows.Count
        If IsNull(aValue) Or aValue <> rng.Cells(i, col1).Value Then
            'copy this row
            rng.Rows(i).Copy sht2.Cells(ii, 1)
            ii = ii + 1
            aValue = rng.Cells(i, col1).Value
        End If
    Next
End With
Application.ScreenUpdating = True
End Sub
复制代码

13545876873

回复 9# ppll2030
可以了呢
感谢大哥们的帮助


但是对于9万多行的excel表来说，运算太慢了

13545876873

回复 10# aloha20200628
哦哦

13545876873

回复 11# flashercs
这个也可以，但宏针多数万行的excel数据，运行有点慢
谢谢大哥！

13545876873

回复 10# aloha20200628
大哥，修改后的test.bat ， 出来的11.csv和2.csv，都是空白呢

1.csv的内容和5楼一样哈

aloha20200628

回复 15# 13545876873

1.csv 似乎超出 sort.exe 的最大排序长度，致使 11.csv 未能成功创建... 只好在 excel 里先按A列排序后再输出 1.csv 了... 代码还须用第一版，如下：

@echo off &setlocal enabledelayedexpansion
(for /f "delims=" %%A in (1.csv) do for /f "tokens=1-2* delims=," %%a in ("%%~A") do (
	if "%%~a"=="!_a!" if %%b gtr !_b! set "v=%%A"
	if "%%~a" neq "!_a!" if defined v echo,!v!&set "_b=" &set "v="
	set "_a=%%a" &if not defined _b set "_b=%%b" &if not defined v set "v=%%A"
)
if defined v echo,!v!)>2.csv
endlocal&pause&exit/b
复制代码