2017-06-21 123 views
0

我試圖將兩個單元合併成一個多行單元。第一個單元格由一個地址組成,第二個單元格包含一個通過使用特殊字體轉換爲條形碼的數字。在excel中合併兩個單元但保留字體

與第一個單元格合併後,第二個單元格的內容應保留分配給它的字體(條形碼字體)。

任何人都可以指向正確的方向嗎?

UPDATE:

這是我工作的解決方案

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

操縱.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

+0

大,肯定是正確的答案!現在我有大約2萬行,我怎麼能讓這個變量一次處理多行? – fourgood

+0

每個組合單元對都必須單獨處理。對於每個x in ... next x'或'for i = 2 ... ... Next i'。 – Jeeped

+0

其實我不是很熟悉VBA腳本。你介意用foreach循環更新你的原始答案嗎? – fourgood

相關問題