如何在VBA中同时复制单元格的值、格式及填充？求解决方案

嘿，我来帮你搞定这个问题！你当前的代码是通过直接赋值Sheets(6).Cells(l, 3) = Sheets(2).Cells(j, c)来复制内容，这种方式只能传递单元格的值，格式和填充效果自然带不过去。咱们可以改用VBA的Copy+PasteSpecial方法来实现完整复制，同时我还会帮你优化代码，去掉低效且易出错的Select和Activate操作。

核心修改思路 #

VBA里的PasteSpecial方法可以指定要粘贴的内容类型，如果你想一次性复制值、格式、填充效果，直接用xlPasteAll参数就可以；如果需要更精细控制，也可以单独指定xlPasteValues、xlPasteFormats、xlPasteFill等参数组合。

另外，避免使用Select/Activate是VBA高效编程的基本原则，直接通过工作表和单元格对象引用操作，既快又不容易出问题。

修改后的完整代码 #

Sub CopyWithFormatAndFill()
    Dim j As Integer
    Dim l As Integer
    Dim c As Integer
    Dim sourceSheet As Worksheet
    Dim targetSheet As Worksheet
    
    ' 定义源工作表和目标工作表，避免硬编码索引
    Set sourceSheet = ThisWorkbook.Sheets(2)
    Set targetSheet = ThisWorkbook.Sheets(6)
    
    l = 2 ' 目标工作表起始行号
    j = 2 ' 源工作表起始行号
    
    ' 循环源工作表的行，直到该行D列为空
    Do Until IsEmpty(sourceSheet.Cells(j, 4))
        c = 4 ' 源工作表起始列号（D列）
        ' 循环当前行的列，直到遇到空单元格
        Do Until IsEmpty(sourceSheet.Cells(j, c))
            ' 复制源单元格的所有内容（值、格式、填充等）
            sourceSheet.Cells(j, c).Copy
            targetSheet.Cells(l, 3).PasteSpecial xlPasteAll ' 粘贴到目标单元格
            
            ' 复制H ID和S ID（若需要格式，可改用Copy+PasteSpecial）
            targetSheet.Cells(l, 4).Value = sourceSheet.Cells(j, 1).Value
            targetSheet.Cells(l, 5).Value = sourceSheet.Cells(j, 2).Value
            
            ' 如果H ID和S ID也需要复制格式，取消下面注释
            ' sourceSheet.Cells(j, 1).Copy
            ' targetSheet.Cells(l, 4).PasteSpecial xlPasteAll
            ' sourceSheet.Cells(j, 2).Copy
            ' targetSheet.Cells(l, 5).PasteSpecial xlPasteAll
            
            c = c + 1
            l = l + 1
        Loop
        j = j + 1
    Loop
    
    ' 清除剪贴板，避免后续操作受影响
    Application.CutCopyMode = False
End Sub

代码说明 #

1. 工作表对象定义：用Set sourceSheet = ThisWorkbook.Sheets(2)代替直接使用Sheets(2)，让代码更易读和维护。
2. Copy+PasteSpecial：sourceSheet.Cells(j, c).Copy复制源单元格的所有内容，PasteSpecial xlPasteAll会把值、格式、填充效果、批注等全部粘贴过去；如果只需要特定内容，可以替换成对应的参数，比如xlPasteValuesAndNumberFormats+xlPasteFormats组合。
3. 清除剪贴板：最后加上Application.CutCopyMode = False，可以取消复制状态，避免Excel界面上的虚线框干扰。
4. 可选优化：如果H ID和S ID列也需要复制格式，把注释掉的Copy+PasteSpecial代码打开即可。

这样修改后，就能完美复制单元格的值、格式和填充效果啦！

内容的提问来源于stack exchange，提问作者Dawn