VBA协助PO做的一些琐事

最新推荐文章于 2021-07-12 14:50:00 发布

原创

最新推荐文章于 2021-07-12 14:50:00 发布 · 341 阅读

0 ·

CC 4.0 BY-SA版权

文章标签：

#VBA

本文介绍了使用VBA进行Excel数据处理的几个实用宏，包括比较两张表并提取相同或不同列值，以及转换列值大小写。这些宏可以极大地提高数据处理效率。

1.根据两张表的列值相同，抽出相同列

Sub GG()
Dim arr, brr, crr(2 To 1000), b As Boolean
b = True
Dim x%: x = 2
arr = Sheet1.Range("a2:a" & Sheet1.[a65536].End(xlUp).Row)
brr = Sheet2.Range("a2:a" & Sheet2.[a65536].End(xlUp).Row)
For i = 1 To UBound(arr, 1)
    For j = 1 To UBound(brr, 1)
        If arr(i, 1) = brr(j, 1) Then b = False: Exit For
    Next
    If b = False Then crr(x) = arr(i, 1): x = x + 1
    b = True
Next
[g2].Resize(x - 1, 1) = Application.Transpose(crr)
End Sub

2.根据两张表的列值相同，抽出某一列

Sub HH()
Dim arr, brr, hrr, crr(2 To 1000), b As Boolean
b = True
Dim x%: x = 2
hrr = Sheet1.Range("b2:b" & Sheet1.[b65536].End(xlUp).Row)
arr = Sheet1.Range("a2:a" & Sheet1.[a65536].End(xlUp).Row)
brr = Sheet2.Range("a2:a" & Sheet2.[a65536].End(xlUp).Row)
For i = 1 To UBound(arr, 1)