在excel中组合两个单元格但保留字体

时间:2017-06-21 13:37:25

标签: excel vba excel-vba excel-formula

我正在尝试将两个单元格合并为一个多行单元格。第一个单元格由一个地址组成,第二个单元格包含一个通过使用特殊字体转换为条形码的数字。

第二个单元格的内容在与第一个单元格合并后,应该保留分配给它的字体(条形码字体)。

有人能指出我正确的方向吗?

更新:

这是我的工作解决方案

Sub barcode()
Dim i As Integer
With Worksheets("sheet4")
    For i = 2 To 19539
        With .Cells(i, "J")
            .Value = .Offset(0, -2).Value2 & Chr(10) & .Offset(0, -1).Value2
            .Characters(Start:=Len(.Offset(0, -2).Value2) + 2, _
                        Length:=Len(.Offset(0, -1).Value2)).Font.Name = .Offset(0, -1).Font.Name
        End With
    Next i
End With
End Sub

1 个答案:

答案 0 :(得分:1)

操纵.Characters属性。

With Worksheets("sheet4")
    With .Cells(6, "F")
        .Value = .Offset(0, -2).Value2 & Chr(10) & .Offset(0, -1).Value2
        .Characters(Start:=Len(.Offset(0, -2).Value2) + 1, _
                    Length:=Len(.Offset(0, -1).Value2)).Font.Name = .Offset(0, -1).Font.Name
    End With
End With

enter image description here