我通过塔A试图循环工作表的(小区A3至A5),Sheet 1中(细胞的值是1,2,和3)。并复制和值粘贴到单元格A1其他工作表。所以Sheet2的A1具有1,表Sheet 3 A1具有2 Sheet4 A1具有3。相反,我的代码最终把3到所有的工作表。任何人都可以帮忙吗?提前致谢
Sub test()
Dim X As Long, Y As Long
For X = 2 To Worksheets.Count
For Y = 3 To 5
Sheets("sheet1").Range("A" & Y).Copy Worksheets(X).Range("A1")
End Sub
这应该工作:
Option Explicit
Sub RunIT()
Dim rng As Range
Dim intI As Integer
Set rng = Worksheets(1).Range("A3:A5")
For intI = 2 To Worksheets.Count
rng.Cells(intI - 1, 1).Copy Worksheets(intI).Range("A1")
Next intI
Set rng = Nothing
End Sub
Sub CopyToWorksheets()
' List of Worksheet Names
Const cSheets As String = "Sheet1,Sheet2,Sheet3,Sheet4"
Const cRange As String = "A3:A5" ' Source Worksheet Range
Const cCell As String = "A1" ' Target Worksheet Cell Range
Dim vntWs As Variant ' Worksheet Array
Dim i As Long ' Worksheet Array Row Counter
' Split List of Worksheet Names into Worksheet Array.
vntWs = Split(cSheets, ",")
' In Source Worksheet
With ThisWorkbook.Worksheets(vntWs(0))
' Loop through cells of Source Worksheet Range.
For i = 1 To UBound(vntWs)
' Copy value of current cell of Source Worksheet Range
' to current Target Worksheet Cell Range.
.Parent.Worksheets(vntWs(i)).Range(cCell) = .Range(cRange).Cells(i)
Next
End With
End Sub