VBA提取

shuiman

kuangben8 发表于 2024-7-5 23:11

给你点个选赞！！！

一执成念

这应该是最容易入门的编程了，在结合AI，方便的很

ggmmlol

这个，用EXCEL的基础功能“高级筛选”就可以轻松搞定，如动图所示：

1、在数据表中，复制标题，添加筛选条件
2、激活存放结果的工作表（本例为表2），然后从菜单中启动高级筛选，指定相应表格区域，点确定即可完成。

shuiman

我也不懂英文，四级也过不了，照样可以写代码。

shuiman

ggmmlol 发表于 2024-8-5 04:04
这个，用EXCEL的基础功能“高级筛选”就可以轻松搞定，如动图所示：

1、在数据表中，复制标题，添加筛选 ...

高级筛选无法做到实时动态，数据不断增加或减少，也就是说区间不断在变动，筛选就无能为力了。特别是存在空行的情况，筛选很容易出错

shuiman

Sub main()
Dim Sht1 As Worksheet, Sht2 As Worksheet
Dim LastRow1 As Long, LastRow2 As Long
Set Sht1 = Worksheets("表1")
Set Sht2 = Worksheets("表2")
j = 2
LastRow1 = Sht1.Cells(Rows.Count, 1).End(xlUp).Row
    For n = 1 To LastRow1
        If (VBA.Right(Sht1.Cells(n + 1, 1), 1) = "T" Or VBA.Right(Sht1.Cells(n + 1, 1), 1) = "W") And Sht1.Cells(n + 1, 2) > 0 Then
            Sht2.Cells(j, 1) = Sht1.Cells(n + 1, 1)
            Sht2.Cells(j, 2) = Sht1.Cells(n + 1, 2)
            j = j + 1
        End If
    Next
'*******对结果进行升序排序
LastRow2 = Sht2.Cells(Rows.Count, 1).End(xlUp).Row
      
    Range("A2:B" & LastRow2).Select
    'Range("B24").Activate
    Selection.Sort Key1:=Range("B2"), Order1:=xlAscending, Header:=xlGuess, _
        OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, SortMethod _
        :=xlPinYin, DataOption1:=xlSortNormal
End Sub

shuiman

这样比较简单，也容易理解：
Set Sht1 = Worksheets("表1")
Set Sht2 = Worksheets("表2")
j = 2
LastRow1 = Sht1.Cells(Rows.Count, 1).End(xlUp).Row
    For n = 1 To LastRow1
        If (VBA.Right(Sht1.Cells(n + 1, 1), 1) = "T" Or VBA.Right(Sht1.Cells(n + 1, 1), 1) = "W") And Sht1.Cells(n + 1, 2) > 0 Then
            Sht2.Cells(j, 1) = Sht1.Cells(n + 1, 1)
            Sht2.Cells(j, 2) = Sht1.Cells(n + 1, 2)
            j = j + 1
        End If
    Next

好多好多栁髅怀

shuiman 发表于 2024-8-5 23:17
高级筛选无法做到实时动态，数据不断增加或减少，也就是说区间不断在变动，筛选就无能为力了。特别是存在 ...

谢谢你，现在学习嗯，VBA比函数难，主要是一点英语不会