使用VBA在Excel中将单元格值从一个单元格保存到另一个单元格 [英] Copying the cell value preserving the formatting from one cell to another in excel using VBA

问题描述

在excel中，我试图将文本从一个单元格复制到另一个单元格中的另一个单元格。源单元格包含格式化的文本（粗体，下划线，不同的颜色）。但是当我使用VBA将文本复制到其他单元格时，格式化将丢失。

In excel, I am trying to copy text from one cell to another cell in another sheet. The source cell contains formatted text (bold,underlined,different colors). But when I copy the text using VBA to the other cell, the formatting is lost.

我知道这是因为excel仅复制文本值。是否有方法可以从单元格中读取 HTML文本 （而不是纯文本）？

I know it is because excel is copying only the text value. Is there a way we can read the HTML text (rather than plain text) from a cell?

已经google了这个，没有得到任何答案。我知道，如果我们使用复制和粘贴方法，我们可以复制格式化。
Eg

I have googled this and did not get any answers. I know that if we use copy and paste methods, we can copy the formatting. E.g.

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

它没有复制和粘贴，因为我的目的地是一个合并的单元格，并且不像我的源单元格一样大小。是否有可用的选项可用在excel VBA中这样做？

编辑：
我可以用下面的代码解决它。 p>

I was able to solve it with the following code.

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

推荐答案

格式：

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

$ b

copying the formatting will break the merged cells, so you can use this to put the cell back together

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

要复制单元格值， （不使用复制/粘贴），您可以直接寻址单元格。

To copy a cell value, without copying anything else (and not using copy/paste), you can address the cells directly

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

http://office.microsoft.com/client/helppreview14.aspx?AssetId=HV080003719&lcid=1033&NS=EXCEL.DEV&Version=14&tl=2&CTT=5&origin=HV080003718 = nofollow> etc ）也可以通过以同样的方式直接寻址范围对象属性来复制

other properties (font, color, etc ) can also be copied by addressing the range object properties directly in the same way

这篇关于使用VBA在Excel中将单元格值从一个单元格保存到另一个单元格的文章就介绍到这了，希望我们推荐的答案对大家有所帮助，也希望大家多多支持IT屋！