VBA速学速会

第一步：调出“开发工具”选项卡：
           1. 选择”文件“选项；
           2. 选择EXCEL（选项）；
           3. 将”通常“选项卡下的第三个复选框（在功能区显示“开发工具”选项卡）选中。

第二步：选择“开发工具”选项卡下的插入“按钮“，表单按钮和ActiveX控件按钮均可。

 第三步：双击按钮，进入代码视图界面，进行代码编写。以后进入VBA编辑界面可以直接按Aｌｔ＋F11，这样会方便很多。第一次双击进入的主要目的是让VBA编辑界面自动生成对应的Button必需的代码，当然你也可以自己写。

第四部：现在开始进入主题，我们来做一个例子，作用是重命名表中的第一个Sheet页，然后把第一列含有数据的行的空白处添上省略号，再规范一下字体。

例1:

Private Sub CommandButton1_Click()
    Dim i As Integer
    Dim j As Integer
    If Worksheets(1).Name <> "日本語翻訳" Then
        Worksheets(1).Name = "日本語翻訳"
    End If
    Worksheets("日本語翻訳").Select
    
    '削除誤った情報
    For i = 2 To 2000
        If Sheets("日本語翻訳").Cells(i, 1) <> "" Then
            For j = 2 To 5
                If Sheets("日本語翻訳").Cells(i, j) = "" Then
                    Sheets("日本語翻訳").Cells(i, j) = "……"
                End If
            Next
        ElseIf Sheets("日本語翻訳").Cells(i, 1) = Sheets("日本語翻訳").Cells(i, 2) Then
            For j = 1 To 5
                    Sheets("日本語翻訳").Cells(i, j) = ""
            Next
        Else
            For j = 2 To 5
                    Sheets("日本語翻訳").Cells(i, j) = ""
            Next
        End If
    Next
    
    '統一字体
    For i = 2 To 2000
        For j = 1 To 5
            Sheets("日本語翻訳").Cells(i, j).Font.Name = "ＭＳ 明朝"
            Sheets("日本語翻訳").Cells(i, j).Font.Size = 14
        Next
    Next
End Sub

原始效果：

实现效果：