Excel 分配尺寸值后&；范围也需要包括单元格的突出显示颜色

我的代码（见下文）分配DIM，设置每个DIM的范围，然后打开新工作簿，找到第一个空行，并将值适当地插入每个偏移列。不知何故，我现在需要做的事！也可以复制单元格颜色，并将其放置在新工作簿中。有人对这个工作脚本有什么想法吗？（实际上共有29套DIM，但仅包括一套以便于使用。）

未经测试：

Private Sub CommandButton1_Click()

    Dim rngFrom As Range, rngTo As Range
    Dim myAuth As Workbook

    Set myAuth = Workbooks.Open("M:\authorizations.xlsm")

    Set rngFrom = ThisWorkbook.Worksheets("Sheet2").Range("C10")
    Set rngTo = myAuth.Worksheets("Sheet1").Cells(Rows.Count, 1).End(xlUp).Offset(1, 0)

    rngTo.Value = rngFrom.Value
    rngTo.Interior.Color = rngFrom.Interior.Color

    myAuth.Close SaveChanges:=True

End Sub

解释：

Set rngTo = myAuth.Worksheets("Sheet1").Cells(Rows.Count, 1).End(xlUp).Offset(1, 0)

我们希望找到该工作表上的第一个空行，查看列A（并从工作表底部向上工作）

从A列（第1列）中图纸的最后一行开始。从那里

End(xlUp)

Offset(1, 0) 

与按Ctrl+Up相同-它将带您到达该列中第一个已占用的单元格。从那里

End(xlUp)

Offset(1, 0) 

---

将该位置向下移动1行（零列）

尝试获取

cells.interior.color

属性，并使用它设置目标单元格的interior.color属性。只需立即复制并粘贴值和颜色。Brian，我确实看过这个“函数”但我完全不知道如何将它应用到我当前的宏中。在将尺寸指定给新单元格之前，它可以是单行，还是每个单元格都需要这样？例如，我可以执行“.Offset（rowcount，0）=itemLast.pastespecial…”吗？如果是，我如何确保在设置itemLast=Range（C“10”）时，它实际上是在顶部复制的。这是我更愿意做的，只是没有知识而已。如果你有任何想法，谢谢你！蒂姆，我真的很感谢你的反馈！我可否请你多帮我一点，并以我的DIM变量为例。我真的是个新手，幸运的是找到了一段视频，可以很好地向我解释我目前的剧本。因此，我不确定如何将rngTo/rngFrom应用于我当前的维度。谢谢您在问题中设置它的方式意味着需要更多的代码来扩展副本以包含填充颜色

rngFrom

和

rngTo

只是指向特定单元格的指针，允许您访问这些单元格的属性（.Value、.Interior.Color等）。好的，那么我将采取下一步将这些新变量添加到现有代码中。再次感谢你的帮助。我会告诉你结果的，蒂姆！你就是炸弹！我真不知道该怎么感谢你！它起作用了！耶！我只需要做一个小的修改，花了一点时间来弄清楚。我不能百分之百地理解代码，但我很高兴这能奏效。我将把需要更改的行放在下一个注释块中。（我应该说我不理解这一行代码100%）Set rngColorTo=myAuthorization.Worksheets（“Sheet1”）.Cells（RowCount，1）。Offset（1，0）