Question

我有一个引用表单 - 我需要获取某些（标题）信息并粘贴到主文件列A1:H1中，然后获取引用的项目并粘贴到主文件列{{1 }和I1:T1等等，如果超过一个项目。

我可以做大部分但是如果报价项超过1，那么我需要将列I2:T2中的标题信息自动填充到A1:H1中填充的最后一列

以下是我所写的内容，但我无法使其发挥作用。这可能是一个我无法看到的简单问题，或者我可能尝试以另一个循环更容易的方式执行此操作。

有人可以建议一个解决方案来填充列I?:H?中的标题信息，以获取与项目一样多的行吗？

A:H

Answer 1

您使用了＆＃39;＆amp;＆＃39;在＆＃39; LastRow＆＃39;之后变量请删除它并尝试下面的代码：

使用工作表（＆＃34; MySheet＆＃34;） .Range（＆＃34; A1＆＃34;）。自动填充目的地：=范围（＆＃34; A1：H＆＃34;＆amp; LastRow）

结束

Answer 2

通过删除选择来减少您的代码，我认为修复了您的错误

Sub TransferQuoteToMasterQuoteTest()

Dim LastRow As Long
Dim R As Long

R = 16
Worksheets.Add.Name = "MySheet"

Sheets("Sheet1").Range("I5:I9").Copy
Sheets("MySheet").Range("A1").PasteSpecial Transpose:=True
Sheets("Sheet1").Range ("K5")
Sheets("MySheet").Range("F1").PasteSpecial
Sheets("Sheet1").Range("K11:K12").Copy
Sheets("MySheet").Range("G1").PasteSpecial Transpose:=True

Do While Not IsEmpty(Worksheets("Sheet1").Range("B" & R))
    Worksheets("Sheet1").Range("B" & R & ":M" & R).Copy Worksheets("MySheet").Range("I" & (R - 15) & ":T" & (R - 15))
    R = R + 1
Loop

LastRow = Worksheets("MySheet").Range("I1").End(xlDown).Row
With Worksheets("MySheet")
    .Range("A1:H1").AutoFill Destination:=.Range("A1:H" & LastRow)
End With

End Sub

自动填充一系列单元格

2 个答案: