请问自动提标黄的内容到新的工作表中，可以实现么

墨墨20240831

3190496160

这是代码才能完成的事情吧

gwjkkkkk

Option Explicit
Sub TEST1()
    Dim ar, i&, j&, r&
   
    With Worksheets(1).[A1].CurrentRegion
        ar = .Value: r = 1
        For i = 2 To UBound(ar)
            If .Rows(i).Interior.Color = vbYellow Then
                r = r + 1
                For j = 1 To UBound(ar, 2)
                    ar(r, j) = ar(i, j)
                Next j
            End If
        Next i
    End With
   
    If r > 1 Then
        With Worksheets(2)
            .Cells.Clear
            With .[A1].Resize(r, UBound(ar, 2))
                .Columns(1).NumberFormatLocal = "m月d日"
                .Value = ar
            End With
            .Activate
        End With
    End If
    Beep
End Sub

gwjkkkkk

...........

墨墨20240831

gwjkkkkk 发表于 2024-10-7 11:24
...........

无法运行宏，不知道是不是版本的问题，这个功能函数可以实现么

gwjkkkkk

墨墨20240831 发表于 2024-10-7 12:07
无法运行宏，不知道是不是版本的问题，这个功能函数可以实现么

wps没用过，wps应该需要安装VBA插件，函数估计不行。

沈默00

墨墨20240831 发表于 2024-10-7 12:07
无法运行宏，不知道是不是版本的问题，这个功能函数可以实现么

WPS需要安装个   ：wps2019vba支持库，网上下载一个，，安装好，启用宏就行了

ykcbf1100

这应该是VBA才能做的事吧
参与一下。。。

ykcbf1100

参与一下。。。