求助设置表格

小星光

求助设置表格

蓝桥玄霜

表格的例子：

gwjkkkkk

Option Explicit
Sub TEST6()
    Dim ar, i&, j&, r&
   
    If [J1].Value = 0 Or [J2].Value = 0 Then MsgBox "数据为空": Exit Sub
   
    Application.ScreenUpdating = False
   
    ar = Sheets(1).UsedRange
    r = 1
    For i = 2 To UBound(ar)
        If ar(i, 1) = [J1].Value And ar(i, 2) = [J2].Value Then
            r = r + 1
            For j = 1 To UBound(ar, 2)
               
                ar(r, j) = ar(i, j)
            Next j
        End If
    Next i
   
    Columns("A:H").Clear
    If r > 1 Then
        With [A2].Resize(r, UBound(ar, 2))
            .Value = ar
            .HorizontalAlignment = xlCenter
            .VerticalAlignment = xlCenter
            .Borders.LineStyle = xlContinuous
        End With
    Else
        MsgBox "没有符合条件的数据！"
    End If

    Application.ScreenUpdating = True
    Beep
End Sub

gwjkkkkk

请参考。。。

小星光

gwjkkkkk 发表于 2024-4-4 19:20
请参考。。。

gwjkkkkk老师你好∶提取数据时要把一个季度都提出来的,而不是只提一个月的数据的。谢谢！

yynrzwh

小星光

yynrzwh 发表于 2024-4-5 00:07

yynrzwh老师你好：我试了一下出现下标越界。请帮我看看。谢谢！

小星光

yynrzwh老师你好：我试了一下出现下标越界。请帮我看看。谢谢！

yynrzwh

你打错了吧
求助表格.zip (18.32 KB, 下载次数: 5)

2024-4-5 08:56 上传

点击文件名下载附件

小星光

yynrzwh 发表于 2024-4-5 08:57
你打错了吧

yynrzwh老师：谢谢！