excul中怎么把一列中相同内容的那一行都标示并复制到另一个表格上

发布网友发布时间：2022-04-23 02:51

我来回答

共2个回答

热心网友时间：2023-10-23 01:30

假定数据源为sheet1

sheet2的A1输入

=INDEX(Sheet1!A:A,SMALL(IF(Sheet1!$C$2:$C$100=42,ROW($2:$100),1000),ROW(1:1)))&""

先按下 CTRL+SHIFT,最后回车

公式右拉下拉

热心网友时间：2023-10-23 01:30

Sub 标()
    Set d = CreateObject("scripting.dictionary")
    For i = 1 To [c65536].End(3).Row
        If Cells(i, 3) = 42 Then d(i & ":" & i) = ""
    Next
    aa = Join(d.keys, ",")
    Cells.Interior.ColorIndex = 0
    Range(aa).Copy Sheet2.[a1]
    Range(aa).Interior.ColorIndex = 6
    Set d = Nothing
End Sub

声明：本网页内容为用户发布，旨在传播知识，不代表本网认同其观点，若有侵权等问题请及时与本网联系，我们将在第一时间删除处理。E-MAIL:11247931@qq.com