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

墨墨20240831 · 发表于 2024-10-7 10:11

3190496160 · 发表于 2024-10-7 10:34

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

gwjkkkkk · 发表于 2024-10-7 11:23

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 · 发表于 2024-10-7 11:24

...........

墨墨20240831 · 发表于 2024-10-7 12:07

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

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

gwjkkkkk · 发表于 2024-10-7 12:10

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

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

沈默00 · 发表于 2024-10-8 08:02

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

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

ykcbf1100 · 发表于 2024-10-8 08:24

本帖最后由 ykcbf1100 于 2024-10-8 08:26 编辑

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

ykcbf1100 · 发表于 2024-10-8 08:25

参与一下。。。

		自动登录	找回密码
密码			免费注册

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

评分