我正在尝试将两个单元格合并为一个多行单元格。第一个单元格由一个地址组成,第二个单元格包含一个通过使用特殊字体转换为条形码的数字。
第二个单元格的内容在与第一个单元格合并后,应该保留分配给它的字体(条形码字体)。
有人能指出我正确的方向吗?
更新:
这是我的工作解决方案
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