Копирование значения ячейки с сохранением форматирования из одной ячейки в другую в excel с помощью VBA

в excel я пытаюсь Скопировать текст из одной ячейки в другую ячейку на другом листе. Исходная ячейка содержит форматированный текст (жирный,подчеркнутый,разных цветов). Но когда я копирую текст с помощью VBA в другую ячейку, форматирование теряется.

Я знаю, что это потому, что Excel копирует только текстовое значение. Есть ли способ прочитать HTML-текста (вместо обычного текста) из ячейки?

я погуглил это и сделал никаких ответов. Я знаю, что если мы используем методы копирования и вставки, мы можем скопировать форматирование. Е. Г.

Range("F10").Select
Selection.Copy
Range("I10").Select
ActiveSheet.Paste

но я хочу сделать это без копирования и вставки, так как мой пункт назначения-объединенная ячейка и не одинакового размера с моей исходной ячейкой. Есть ли опция, доступная в excel VBA для этого?

изменить: Я смог решить ее с помощью следующего кода.

Range("I11").Value = Range("I10").Value
For i = 1 To Range("I10").Characters.Count
    Range("I11").Characters(i, 1).Font.Bold = Range("I10").Characters(i, 1).Font.Bold
    Range("I11").Characters(i, 1).Font.Color = Range("I10").Characters(i, 1).Font.Color
    Range("I11").Characters(i, 1).Font.Italic = Range("I10").Characters(i, 1).Font.Italic
    Range("I11").Characters(i, 1).Font.Underline = Range("I10").Characters(i, 1).Font.Underline
    Range("I11").Characters(i, 1).Font.FontStyle = Range("I10").Characters(i, 1).Font.FontStyle
Next i
8
cell copy excel formatting vba

5 ответов

для копирования форматирования:

Range("F10").Select
Selection.Copy
Range("I10:J10").Select ' note that we select the whole merged cell
Selection.PasteSpecial Paste:=xlPasteFormats

копирование форматирования нарушит объединенные ячейки, поэтому вы можете использовать это, чтобы собрать ячейку обратно

Range("I10:J10").Select
Selection.Merge

чтобы скопировать значение ячейки, не копируя ничего другого (и не используя copy/paste), вы можете обратиться к ячейкам напрямую

Range("I10").Value = Range("F10").Value

другие свойства (шрифт, цвет etc) также можно скопировать, обратившись к свойствам объекта диапазона непосредственно таким же образом

5

Использование Excel 2010 ? Попробуй!--2--> 

Selection.PasteSpecial Paste:=xlPasteAllUsingSourceTheme, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
7

Я предпочитаю избегать использования select

     With sheets("sheetname").range("I10") 
          .PasteSpecial Paste:=xlPasteValues, _
                  Operation:=xlNone, _
                  SkipBlanks:=False, _
                  Transpose:=False
          .PasteSpecial Paste:=xlPasteFormats, _
                  Operation:=xlNone, _
                  SkipBlanks:=False, _
                  Transpose:=False
          .font.color = sheets("sheetname").range("F10").font.color
      End With
      sheets("sheetname").range("I10:J10").merge
3
Sub CopyValueWithFormatting()
    Sheet1.Range("A1").Copy
    With Sheet2.Range("B1")
        .PasteSpecial xlPasteFormats
        .PasteSpecial xlPasteValues
    End With
End Sub
1

копирование жирного текста с одного листа на другой лист в excel с помощью VBScript 'Создать объект экземпляра

Set oXL = CreateObject("Excel.application")
oXL.Visible = True

Set oWB = oXL.Workbooks.Open("FilePath.xlsx")
Set oSheet = oWB.Worksheets("Sheet1")         'Source Sheet in workbook
Set oDestSheet = oWB.Worksheets("Sheet2")       'Destination sheet in workbook

r = oSheet.usedrange.rows.Count
c = oSheet.usedrange.columns.Count

For i = 1 To r
    For j = 1 To c
        If oSheet.Cells(i,j).font.Bold = True Then

            oSheet.cells(i,j).copy
            oDestSheet.Cells(i,j).pastespecial
        End If
    Next
Next

oWB.Close
oXL.Quit
0