VBA学习遇到的知识点
'根据某一列排序
ThisWorkbook.Sheets(3).UsedRange.Sort key1:=arr(1), order1:=xlAscending, Header:=xlYes
'根据哪几列去重
ThisWorkbook.Sheets(3).UsedRange.RemoveDuplicates Columns:=Array(1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13), Header:=xlYes
'将数据读入数组中,内存操作效率高
Dim resultArray() As Variant
Dim wk_data As Variant
Set wk_data = ThisWorkbook.Sheets(3)
resultArray = wk_data.UsedRange.value
wk_data.Range("A1").Resize(UBound(resultArray , 1), UBound(resultArray , 2)).value = resultArray
'MsgBox弹窗
'条件之间的连接 And
'防止出现乱码,从开发工具到编辑器来回拷贝的时候需要保持输入法一致
'ThisWorkbook.Sheets(3).UsedRange 第三个工作表中使用的区域
'ThisWorkbook.Sheets("AAA")选择叫做“AAA”的工作表
'Call setDetail(data, result1) 调用无返回值的方法
'调用有返回值的方法,返回值需要与方法名一样
s = getSub1(s, value, c, dataArr)
Function getSub1(s, value, c, dataArr) As String
getSub1 = 2
End Function
'判断某个单元格是否为空用len()>0来判断性能会好