初学VBA：提取列中唯一字符组合至另一列，代码运行无反应求助

原代码的核心问题 #

• LastRow赋值语法错误：你把LastRow = ws.Cells(Rows.Count, 1).End(xlUp).Row直接写在For i=2 To ...的循环条件里，VBA不会在这里正确计算LastRow的值，导致循环根本没执行。
• 未指定工作表对象：所有Cells操作都没加ws.前缀，默认只会操作当前激活的工作表，而非循环遍历的目标工作表。
• 变量未声明：i没有提前声明，虽然VBA允许隐式声明，但极易引发逻辑错误，建议始终加上Option Explicit强制变量声明。
• 逻辑缺陷：原代码仅在当前行与下一行内容不同时写入数据，会漏掉最后一行的唯一值；且写入位置对应原行的I列，无法实现唯一值连续排列的需求。

修正后的循环判断版代码 #

保持你原有的思路，修复所有问题后实现连续提取唯一值：

Option Explicit

Sub ExtractUniqueTicker()
    Dim ws As Worksheet
    Dim lastRow As Long
    Dim i As Long
    Dim outputRow As Long ' 记录I列的连续写入位置
    
    For Each ws In Worksheets
        lastRow = ws.Cells(ws.Rows.Count, 1).End(xlUp).Row
        outputRow = 2 ' 从I2开始写入
        
        ' 先写入第一个数据行的值（如果有数据）
        If lastRow >= 2 Then
            ws.Cells(outputRow, 9).Value = ws.Cells(2, 1).Value
            outputRow = outputRow + 1
        End If
        
        ' 从第3行开始对比上一行，提取唯一值
        For i = 3 To lastRow
            If ws.Cells(i, 1).Value <> ws.Cells(i - 1, 1).Value Then
                ws.Cells(outputRow, 9).Value = ws.Cells(i, 1).Value
                outputRow = outputRow + 1
            End If
        Next i
    Next ws
End Sub

更高效的字典去重法 #

如果数据量较大，用字典的键唯一性自动去重，效率更高且不依赖数据排序：

Option Explicit

Sub ExtractUniqueWithDictionary()
    Dim ws As Worksheet
    Dim lastRow As Long
    Dim i As Long
    Dim uniqueDict As Object
    
    Set uniqueDict = CreateObject("Scripting.Dictionary")
    
    For Each ws In Worksheets
        lastRow = ws.Cells(ws.Rows.Count, 1).End(xlUp).Row
        
        ' 遍历A列，将唯一值存入字典
        For i = 2 To lastRow
            If Not uniqueDict.Exists(ws.Cells(i, 1).Value) Then
                uniqueDict.Add ws.Cells(i, 1).Value, ""
            End If
        Next i
        
        ' 将字典中的唯一值批量写入I列（从I2开始）
        ws.Cells(2, 9).Resize(uniqueDict.Count).Value = Application.Transpose(uniqueDict.Keys)
        uniqueDict.RemoveAll ' 清空字典，处理下一个工作表
    Next ws
End Sub

关键说明 #

• Option Explicit：强制声明所有变量，避免因拼写错误产生的隐式变量问题，建议所有VBA代码都添加。
• 工作表对象指定：所有Cells操作都加上ws.前缀，确保操作的是当前循环的工作表，不受激活状态影响。
• 字典方法：无需判断相邻行，自动过滤重复值，适合任何排序的数据源。

内容的提问来源于stack exchange，提问作者Nathan