vba遍历循环，将H列的单元格数据复制到G列的单元格，然后合并两列单元格,最后给合并的单元格添加边框线

在VBA宏中，你可以使用For Each循环和Range对象来实现这个操作。以下是一个简单的示例代码片段，它会遍历H列（假设从A列开始计数），复制数据到G列，并将两个相邻的单元格合并，最后加上边框：

Sub MergeAndBorder()
    Dim rng As Range
    Dim cell As Range
    
    ' 设置起始行（这里假设从第一行开始）
    Set rng = Sheets("Sheet1").Range("H1") ' 根据实际情况替换 "Sheet1" 和 "H1"
    
    ' 遍历H列并将数据复制到G列
    For Each cell In rng
        If Not IsEmpty(cell.Value) Then ' 确保只有非空值才会复制
            cell.Offset(0, -1).Value = cell.Value ' 将H列的值复制到G列
        End If
    Next cell

    ' 合并H和G列
    rng.Offset(0, -1).Merge ' 合并当前单元格及其左边的G列单元格
    
    ' 添加边框
    With rng.Offset(0, -1)
        .Borders.LineStyle = xlContinuous ' 设置边框样式
        .Borders.ColorIndex = 1 ' 设置颜色，默认为黑色
        .Borders.Weight = xlThick ' 边框线粗细，如需调整自行修改
    End With
End Sub