VBA代码可将值从一个单元格复制到特定列

Question

我刚接触VBA，需要以下方面的帮助：

1. 从工作表“工作”中的单元格B3，B4，B5，B6，B7复制值
2. 将单元格的值分别粘贴到工作表“跟踪”中的范围（F2，lastrow），（G2，lastrow），（H2，last row），（I2，lastrow），（J2，lastrow）

*工作表“ TRACKING”中的“ lastrow”将始终有所不同

*单元格B3，B4，B5，B6，B7始终具有不同的值

例如

床单“工作”

B3 is A1234
B4 is A
B5 is B
B6 is 1
B7 is XX

使用代码lastrow = .Cells(.Rows.Count, "A").End(xlUp).Row确定工作表“ TRACKING”的lastrow为4

所需的输出如下所示

           F         G         H         I         J
(Row 1)
(row 2)   A1234      A         B         1         XX
(row 3)   A1234      A         B         1         XX
(row 4)   A1234      A         B         1         XX

希望有人可以帮助我！ 谢谢！！

找到的解决方案

Sub data_transpose
Dim i As Integer
Dim lastrow As Long
Dim copyRange As Range
Dim sh As Worksheet
Set copyRng = Worksheets("WORKING").Range("B3:B7")
Set sh = Worksheets("TRACKING")

lastrow = sh.Range("A2", sh.Range("A2").End(xlDown)).Rows.Count + 1

For i = 2 To lastrow
copyRng.Copy
sh.Cells(i, 6).PasteSpecial Paste:=xlPasteValues, Operation:=xlNone,    
_SkipBlanks:=False, Transpose:=True
Next i

End Sub

Answer 1

这可能对你有用

for jj=1 to #number_of_lines_you_want
for j = 6 to 10
   for i = 3 to worksheets("WORKING").cells(2,2).End(xlDown).Row
        lastrow = worksheets("TRACKING").cells(2,j).End(xlDown).Row
        worksheets("TRACKING").cells(i,j) = worksheets("WORKING").cells(i,2).value
   next i
next j
next jj

end（xlDown）.row将为您提供最后一个条目的行。

那这个呢？

for i = 3 to 7
worksheets("WORKING").range("B3:B7").Copy
Worksheets("TRACKING").cells(i,6).PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=True

Answer 2

这是让您入门的一种选择：

Sub CopyData()
    Dim copyRng As Range, cl As Range, col As Integer, lastRow As Integer

    Set copyRng = Worksheets("Working").Range("B3:B7")
    col = 6 ' Denotes column F

    With Worksheets("Tracking")
        lastRow = .Cells(Rows.Count, "F").End(xlUp).Row

        For Each cl In copyRng
            .Range(.Cells(2, col), .Cells(lastRow, col)) = cl
            col = col + 1
        Next cl
    End With
End Sub