将单元格值复制到已定义的工作表和单元格参考（循环）答案

【问题标题】：Copy Cell Value To Defined Sheet & Cell Reference (Loop)将单元格值复制到已定义的工作表和单元格参考（循环）
【发布时间】：2018-02-14 20:36:37
【问题描述】：

我正在尝试从基于用户定义的工作表和单元格引用的范围中复制值。例如，在 A1 中，我定义了要复制到的工作表名称，B1 是要复制到的单元格引用，C1 是要复制的值。下面的代码仅针对第 1 行完成此操作，但我需要为定义范围内的所有行（即命名范围 A1:C200）循环此操作，或者直到该行为空白。

最好我可以选择复制范围内的单元格值（例如上面的 C1）或范围内存在的公式。

Sub CopyValues()

Dim SheetName
Dim CellRef
Dim Value

With ThisWorkbook.Sheets("Sheet1")
SheetName = Range("A1").Value
CellRef = Range("B1").Value
Value = Range("C1").Value
End With

ThisWorkbook.Sheets(SheetName).Range(CellRef).Value = Value

End Sub

【问题讨论】：

标签： excel vba loops copy

【解决方案1】：

你快到了

Sub CopyValues()

Dim SheetName
Dim CellRef
Dim Value

With ThisWorkbook.Sheets("Sheet1")
    For i = 1 to 200
        SheetName = Range("A" & i).Value
        CellRef = Range("B" & i).Value
        Value = Range("C" & i).Value
        ThisWorkbook.Sheets(SheetName).Range(CellRef).Value = Value
    Next i
End With

End Sub

【讨论】：

【解决方案2】：

Sub CopyValues()
    With ThisWorkbook.WorkSheets("Sheet1")
        For Each cell in .Range("A1", .Cells(.Rows.Count, 1).End(xlUp))
            ThisWorkbook.Sheets(cell.Value).Range(cell.Offset(,1).Formula = cell.Offset(,2).Formula
        Next
    End With
End Sub

【讨论】：

【解决方案3】：

谢谢你们！我解决了以下问题。

Sub CopyValues()

Dim SheetName
Dim CellRef
Dim Value

With ThisWorkbook.Sheets("Sheet1")
    For i = Range("SheetNameRange").Row To Range("SheetNameRange").Row + Range("SheetNameRange").Rows.Count - 1
        SheetName = Range("A" & i).Value
        CellRef = Range("B" & i).Value
        Value = Range("C" & i).Value
        ThisWorkbook.Sheets(SheetName).Range(CellRef).Value = Value
    Next i
End With

End Sub

【讨论】：