在分配DIM值和范围需要包括单元格的高亮颜色之后

我有代码（见下文）指定昏暗，设置每个范围，然后打开新的工作簿，find第一个空行，并适当地插入到每个偏移列的值。 我现在需要做的，不知何故！ 也复制单元格的颜色，并将其放置在新的工作簿中。 任何人有任何基于这个工作脚本的想法？ （实际上有29个DIM的设置，但只包括一个便于使用。）

Private Sub CommandButton1_Click() Dim itemLast As String Dim myAuthorization As Workbook Worksheets("Sheet2").Select itemLast = Range("C10") Set myAuthorization = Workbooks.Open("M:\authorizations.xlsm") Worksheets("Sheet1").Select Worksheets("Sheet1").Range("A1").Select RowCount = Worksheets("Sheet1").Range("A1").CurrentRegion.Rows.Count With Worksheets("Sheet1").Range("A1") .Offset(RowCount, 0) = itemLast End With myAuthorization.Save myAuthorization.Close End Sub 

Answer 1

未经testing：

 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) 

我们要find那张纸上的第一个空行，查看A栏（从底部开始向上）

 Cells(Rows.Count, 1) 

开始于表格A的最后一行（列1）。 从那里

 End(xlUp) 

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

 Offset(1, 0) 

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