VBA学习——1

VBA 过程的基本语法如下：

Sub 过程名(参数)
    语句1
    语句2
    ...
 End Sub

VBA 函数与 VBA 过程很相似，除了使用的关键词外，主要区别是，函数可以返回值。

Function [函数名]([参数]) As [返回值类型]
    语句1    
    语句2    
    ...    
    语句n    
    [函数名] = [返回值]
End Function

函数包含的语句中，相比过程，可以看到多一个 [函数名] = [返回值] 语句，这是函数的返回值语句

Excel VBA对象模型

• 应用程序（Application）

• 工作簿（Workbook）

• 工作表（Worksheet）

• 范围（Range）

许多使用 Excel 完成的工作都是围绕这四种对象及其成员进行的。位于顶层的是Application对象，也就是Excel应用程序本身，它包含Excel中的其它的对象，如Workbook对象；一个Workbook对象包含其它一些对象，如Worksheet对象；而一个Worksheet对象又可以包含其它对象，如Range对象， 一个 Range 对象，表示一个单元格、行、列、包含一个或多个单元格块的单元格选定区域（选定区域可能是连续的，也可能不是连续的）或甚至多个工作表上的一组单元格）。

Application.Workbooks(“Book1.xls”).Worksheets(“Sheet1”).Range(“A1”) 表明是对工作簿Book1上的工作表Sheet1中单元格A1的引用，其中Application代表Excel应用程序本身，可省略。特别地，若Book1是当前活动工作簿，则上述语句可简写为 Worksheets(“Sheet1”).Range(“A1”) ；若Sheet1是当前活动工作表，则又可简写为 Range(“A1”) 。因此，若在引用中省略了工作簿对象，则表明是使用当前活动工作簿；若再省略了工作表对象，则表明是使用当前活动工作表。

Worksheet.Cells语法
Worksheets("Sheet1").Cells(5, 3).Font.Size = 14
将 Sheet1 中单元格第5行第3列的字号设置为 14 磅。

一个简单的比较程序，比较两个sheet的序号是否一致

Sub compare()
    Sheet1.Range("C2:C1000").ClearContents
    
    'Dim sheet1_rows, sheet2_rows
    sheet1_rows = Worksheets("Sheet1").Cells(Rows.Count, 1).End(xlUp).Row
    sheet2_rows = Worksheets("Sheet2").Cells(Rows.Count, 1).End(xlUp).Row
    
    For i = 2 To sheet1_rows
        Worksheets("Sheet1").Cells(i, 3) = "不一致"
        For j = 2 To sheet2_rows
            If Worksheets("Sheet1").Cells(i, 1) = Worksheets("Sheet2").Cells(j, 1) Then
                Worksheets("Sheet1").Cells(i, 3) = "一致"
                Exit For
            End If
        Next
    Next
End Sub

其中
求出A列最后1行：Cells(Rows.Count, 1).End(3).Row "Cells(Rows.Count, 1)表示是查找A列最后一个非空单元格，按列的可以改Cells(1, Columns.count)，end(xlup)表示的向上查找，还有其他3个方向，向下，向左，向右：xldown、xltoleft、xltoright

结果如下

参考链接：Excel VBA入门与实用例子