Excel VBA技术求助：为多列数据添加符号后合并至单列

嗨，我来帮你搞定这个VBA脚本的修改～ 你需要把A、B、C三列的数据整合到D列，还要给每个数字加上>=或<=符号，对吧？我给你调整了两种常见需求的版本，你可以根据自己的实际情况选：

版本1：每行D列合并对应行A/B/C的内容（带符号） #

这个版本会把每行A、B、C的内容分别加上指定符号后，合并到同一行的D列里（比如D1显示>=A1 <=B1 >=C1）：

Sub CombineWithSymbols()
    Dim ws As Worksheet
    Dim rw As Long
    Dim lastRow As Long
    Dim aVal As String, bVal As String, cVal As String
    
    ' 指定目标工作表，避免依赖ActiveWorkbook的不确定性
    Set ws = ThisWorkbook.Sheets("Sheet1")
    
    ' 找到A列最后一行有数据的行，避免循环所有行浪费资源
    lastRow = ws.Cells(ws.Rows.Count, "A").End(xlUp).Row
    
    ' 逐行处理数据
    For rw = 1 To lastRow
        ' 仅处理A列非空的行（和你原脚本逻辑一致）
        If ws.Cells(rw, "A").Value <> "" Then
            ' 给A列数值添加>=符号，非数值内容保持原样
            If IsNumeric(ws.Cells(rw, "A").Value) Then
                aVal = ">=" & ws.Cells(rw, "A").Value
            Else
                aVal = ws.Cells(rw, "A").Value
            End If
            
            ' 给B列数值添加<=符号，同理处理非数值
            If IsNumeric(ws.Cells(rw, "B").Value) Then
                bVal = "<=" & ws.Cells(rw, "B").Value
            Else
                bVal = ws.Cells(rw, "B").Value
            End If
            
            ' 给C列数值添加符号（这里默认用>=，你可以改成<=或其他）
            If IsNumeric(ws.Cells(rw, "C").Value) Then
                cVal = ">=" & ws.Cells(rw, "C").Value
            Else
                cVal = ws.Cells(rw, "C").Value
            End If
            
            ' 将处理后的内容合并到D列，用空格分隔（可换成逗号等你需要的分隔符）
            ws.Cells(rw, "D").Value = aVal & " " & bVal & " " & cVal
        End If
    Next rw
End Sub

关键说明： #

• 我帮你加了lastRow判断，只循环到有数据的最后一行，比原脚本循环所有行效率高很多；
• 增加了IsNumeric检查，避免给非数值单元格（比如文本）错误添加符号；
• 每列的符号可以自定义修改，比如想给C列加<=，直接把代码里的">="换成"<="就行。

版本2：把A/B/C的所有数据逐行导入D列（每个数值带符号） #

如果你的需求是把A、B、C的所有非空单元格按顺序逐行放到D列（比如A1→D1，B1→D2，C1→D3，A2→D4...），用这个版本：

Sub CopyWithSymbolsToD()
    Dim ws As Worksheet
    Dim rw As Long, dRow As Long
    Dim lastRow As Long
    Dim col As Integer
    
    Set ws = ThisWorkbook.Sheets("Sheet1")
    dRow = 1 ' D列开始写入的起始行
    lastRow = ws.Cells(ws.Rows.Count, "A").End(xlUp).Row
    
    ' 遍历A、B、C三列（1=A列，2=B列，3=C列）
    For col = 1 To 3
        For rw = 1 To lastRow
            If ws.Cells(rw, col).Value <> "" Then
                ' 给不同列设置不同符号，可按需修改
                Dim symbol As String
                Select Case col
                    Case 1: symbol = ">=" ' A列加>=
                    Case 2: symbol = "<=" ' B列加<=
                    Case 3: symbol = ">=" ' C列加>=，可自定义
                End Select
                
                ' 给数值添加符号，非数值保持原样
                If IsNumeric(ws.Cells(rw, col).Value) Then
                    ws.Cells(dRow, "D").Value = symbol & ws.Cells(rw, col).Value
                Else
                    ws.Cells(dRow, "D").Value = ws.Cells(rw, col).Value
                End If
                dRow = dRow + 1 ' D列行号自增，准备写下一个内容
            End If
        Next rw
    Next col
End Sub

如果你的需求和这两种不一样——比如符号的规则是根据数值大小自动选择（比如大于100加>=，小于加<=），或者有其他特殊要求——随时说，我再帮你调整～

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