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

Question

我很新的VBA和需要帮助的以下内容：

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

*工作表“跟踪”中的“lastrow”将始终变化

*细胞B3，B4，B5，B6，B7将总是具有不同的值

例如

表 “工作”

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

表 “跟踪” LASTROW确定使用为4代码lastrow = .Cells(.Rows.Count, "A").End(xlUp).Row

期望的输出如下所示

  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 

末（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