VBA协助PO做的一些琐事

夜幕下的手指

于 2018-12-05 00:43:52 发布

阅读量315

点赞数

分类专栏：辅助工具文章标签： VBA

本文链接：https://blog.youkuaiyun.com/Smiledmdm/article/details/84801483

版权

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

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

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&#

最低0.47元/天解锁文章