从频繁使用到无人问津，Excel VBA的变迁见证了技术进步的步伐

在Excel的发展历程中，VBA（Visual Basic for Applications）曾是无数职场人士提高工作效率的神器。随着Excel功能的不断增强和新技术的出现，许多曾经广泛使用的VBA代码已逐渐退出历史舞台。

本文将回顾那些曾经风靡一时，如今却很少被使用的VBA代码和技术，探索Excel自动化处理的演变历程。

1. 传统单元格循环操作

过去，VBA中最常见的操作之一就是通过循环遍历单元格来进行数据处理：

For i = 1 To 1000
    For j = 1 To 100
        If Cells(i, j).Value = 0 Then
            Cells(i, j).Value = ""
        End If
    Next j
Next i

这种方法效率低下，尤其在大数据量时表现明显。现在我们知道，一次性读取整个区域到数组中进行处理，然后再写回工作表，速度会快得多。

Dim dataRange As Variant
dataRange = Range("A1:CV1000").Value

' 在数组中进行处理
For i = LBound(dataRange, 1) To UBound(dataRange, 1)
    For j = LBound(dataRange, 2) To UBound(dataRange, 2)
        If dataRange(i, j) = 0 Then
            dataRange(i, j) = ""
        End If
    Next j
Next i

' 一次性写回
Range("A1:CV1000").Value = dataRange

2. 录制宏生成的代码

很多VBA初学者通过录制宏来学习代码编写，例如下面这段录制生成的代码9：

Sheets("Sheet1").Select
Range("A2:D11").Select
Selection.Copy
Sheets("员工考核信息表").Select
Range("A1").Select
Selection.End(xlDown).Select
ActiveCell.Offset(1, 0).Range("A1").Select
ActiveSheet.Paste

这种代码依赖选择和活动对象，效率低且容易出错。现在开发者更倾向于编写不依赖Select和ActiveCell的代码：

' 现代写法
Dim targetSheet As Worksheet
Set targetSheet = ThisWorkbook.Sheets("员工考核信息表")
Dim lastRow As Long
lastRow = targetSheet.Cells(targetSheet.Rows.Count, "A").End(xlUp).Row + 1

ThisWorkbook.Sheets("Sheet1").Range("A2:D11").Copy _
Destination:=targetSheet.Cells(lastRow, 1)

3. 手动删除重复项

在Excel2007之前，没有内置的删除重复项功能，VBA是唯一的自动化解决方案：

' 旧式删除重复项方法:cite[10]
For i = Range("A65536").End(xlUp).Row To 1 Step -1
    If Application.WorksheetFunction.CountIf(Range("A1:A" & i), Cells(i, "A").Value) > 1 Then
        Rows(i).Delete
    End If
Next i

现在，我们可以使用Excel内置的RemoveDuplicates方法，一行代码就能完成：

' 现代写法
ActiveSheet.Range("A:B").RemoveDuplicates Columns:=1, Header:=xlYes

4. 自定义函数处理假空单元格

过去识别和处理"假空"单元格（看起来空白但实际有公式返回空字符串）需要复杂代码：

' 旧式假空检测和处理
Private Sub CommandButton1_Click()
    Dim c As Range, UnRng As Range
    With UsedRange
        Set c = .Find("", LookIn:=xlValues, lookat:=xlWhole)
        If Not c Is Nothing Then
            firstAddress = c.Address
            Do
                If UnRng Is Nothing Then
                    Set UnRng = c
                Else
                    Set UnRng = Union(UnRng, c)
                End If
                Set c = .FindNext(c)
            Loop While Not c Is Nothing And c.Address <> firstAddress
        End If
    End With
    If Not UnRng Is Nothing Then
        UnRng.ClearContents
    End If
End Sub

现在，Excel提供了更强大的GoToSpecial方法，可以快速选择各种特殊单元格：

' 现代写法
On Error Resume Next
' 选择所有空白单元格（包括假空）
Range("A1:C100").SpecialCells(xlCellTypeBlanks).Select
On Error GoTo 0

5. 使用VBA调用WinAPI实现复杂功能

在过去，由于Excel功能有限，许多开发者不得不通过VBA调用Windows API来实现复杂功能：

' 旧式WinAPI声明和使用
Private Declare Function OpenClipboard Lib "user32" (ByVal hwnd As Long) As Long
Private Declare Function CloseClipboard Lib "user32" () As Long
Private Declare Function GetClipboardData Lib "user32" (ByVal wFormat As Long) As Long

Public Function GetClipboardText() As String
    Dim hClipboard As Long
    Dim hData As Long
    Dim sData As String
    
    hClipboard = OpenClipboard(0&)
    If hClipboard <> 0 Then
        hData = GetClipboardData(1)
        If hData <> 0 Then
            sData = Space$(lstrlenW(hData))
            lstrcpy StrPtr(sData), hData
            GetClipboardText = sData
        End If
        CloseClipboard
    End If
End Function

现在，大多数这类功能可以通过更简单的VBA方法实现，或者使用Power Query、Office.js等现代技术。

6. 为什么这些VBA代码不再被使用？

6.1 Excel自身功能的增强

现代Excel增加了许多内置功能，使得许多曾经需要VBA的任务现在可以通过菜单操作或公式完成。例如：

• Power Query 提供了强大的数据获取和转换能力
• 动态数组公式 可以处理以前需要复杂VBA代码才能完成的计算
• 内置数据可视化工具 减少了对图表编程的需求

6.2 性能问题的关注

随着数据量的增长，传统VBA代码的性能瓶颈变得更加明显。现代最佳实践包括：

• 使用数组处理而不是直接操作单元格
• 禁用屏幕更新和自动计算

Application.ScreenUpdating = False
Application.Calculation = xlManual
' 执行代码
Application.Calculation = xlAutomatic
Application.ScreenUpdating = True

• 使用字典对象进行快速查找和去重8

6.3 新技术的出现

Python、R、Power BI等技术的兴起，使得许多复杂的数据处理任务不再依赖VBA。特别是Python，通过库如pandas、openpyxl，可以更高效地处理Excel数据。

6.4 跨平台兼容性需求

随着Office 365和Web版Excel的普及，VBA的兼容性问题变得更加突出。许多现代Excel解决方案需要考虑到跨平台使用，而VBA在这方面存在局限性。

7. 未来展望：VBA的现代化替代方案

虽然传统VBA使用减少，但自动化需求仍在增长。现代Excel开发更倾向于：

1. Office.js API：用于开发跨平台的Excel插件
2. Power Query M语言：用于数据获取和转换
3. DAX公式：用于数据建模和分析
4. LAMBDA函数：允许创建自定义函数而不使用VBA

结语

VBA曾经是Excel自动化不可或缺的工具，许多代码解决方案代表了当时的最佳实践。技术进步使得这些代码逐渐淡出历史舞台，但它们为现代Excel开发奠定了坚实基础。

了解这些过去的解决方案不仅能帮助我们欣赏技术的进步，也能在必要时借鉴旧思路解决新问题。即使不再频繁使用，这些VBA代码仍然是Excel发展史上重要的一章，值得我們了解和铭记。

即使现在有了更多现代工具，VBA在某些场景下仍然有其价值，特别是简单的自动化任务和遗留系统的维护。对于Excel高级用户来说，了解VBA的基本原理仍然是有益的。