如何使用VBA代码将带有项目符号，粗体字符和分隔线的文本粘贴到单个Excel单元格中？

提问于 2024-04-28T00:48:54+08:00

浏览次

0

我想做相当于在工作表中选择单元格，按F2然后按CTRL V，以便保留所有格式，如项目符号，粗体字符和分隔线，并粘贴到一个单元格中 . 请注意，我不是从Excel工作表复制，而是使用excel vba从Word文档复制 .

我试过了：

Sheets(1).Cells(1,1).Select
SendKeys "{F2}", True
SendKeys "v", True
Application.Wait(Now + TimeValue("0:00:5"))
Sheets(1).Cells(1,2).Select

但是上面的代码粘贴在活动工作表的单元格（1,2）中而不是（1,1） . 请为此建议一种替代方法 .

2 回答

0
复制并粘贴单元格“保留格式”（即粗体，下划线，文本列，换行符，特殊字符（如项目符号点）等）您可以使用记录宏来创建如下的简单复制，粘贴等代码 . 不需要按F2（因为这只会让您访问原始值 - 而不是格式化）：
```
Range("C3").Select
Selection.Copy
Range("D6").Select
ActiveSheet.Paste
```
根据您的需要修改此示例：
```
With Sheets(1)
    .Cells(1, 1).Copy
    .Cells(1, 2).Select
    .Paste
end with
```
回复于 2024-04-28T00:48:54+08:00
0
```
SendKeys "^v", True
```
这将发送Ctrl v . 您不应该需要 Wait 命令，因为的参数告诉Excel等到's done before returning continuing with the macro. I'我不确定是否有's a better way to do this that doesn' t涉及SendKeys，除非你想粘贴到多个单元格和然后结合它们 .
回复于 2024-04-28T00:48:54+08:00

相关问题