Excel VBA：从一个工作表复制到另一个

Question

因此，我有一个工作簿，其中有两张工作表。我需要将工作表2（“细节”）中的数据复制到工作表1（“Syncrofit”）。来自ws2的项目我需要粘贴到表格1上的渐进行中，因此表格2中的行B列（称为“Joint1-1”）需要插入到表格1中的行1下方。这基本上会创建一个嵌套表格。

这是我迄今为止，大多是从代码和帮助张罗，我发现在这里：

Sub SelectJoints() 
Sheets("Detail").Activate 
Dim Selection1 As Integer, Selection2 As Integer 
Dim SelectionRange As Range 
Dim num As Integer 


Dim rngFind As Range 
Set rngFind = Columns("B:B").Find(what:="*" & "Joint1-" & num, After:=Range("B1"), LookIn:=xlValues, LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext) 

If Not rngFind Is Nothing Then 
    Selection1 = rngFind.Row + 1 
End If 

Set rngFind = Columns("B:B").Find(what:="*Joint1-" & num + 1, After:=Range("B1"), LookIn:=xlValues, LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext) 

If Not rngFind Is Nothing Then 
    Selection2 = rngFind.Row - 1 
End If 

If Selection1 > 0 And Selection2 > 0 Then 
    Set SelectionRange = Range(Cells(Selection1, 2), Cells(Selection2, 6)) 
End If 

末次

在这里的意图是，这应该激活细节单，在列B中找到匹配“SomeTextHere（Joint1-1）”的字符串并选择这些行。然后，我需要它将这些选择粘贴到表单1（在第1行下面，其中一列中的值为“Joint”值），返回到表2，选择包含“SomeTextHere（Joint1-2 ）“并粘贴到下一行下面（刚刚插入的那些之后）。我意识到，粘贴部分不在代码中。这一直使我疯狂。

请原谅我对VBA的知识不足。

我想成品看起来像一个嵌套表有点像如下：

   Original Items 
Copied from sheet 2 
Copied from sheet 2 
Copied from sheet 2 
       Original Item 2 
Copied from sheet 2 
etc. 

任何帮助是极大的赞赏，感谢，

Answer 1

我有点无聊，所以我刮起了什么这可能会帮助你。请让我知道这对你有没有用。

Sub Macro1() 

Dim i, j, x 
Dim rng As Range 
Dim sh1 As Worksheet 
Dim sh2 As Worksheet 
Set sh1 = Sheets("Syncrofit") 
Set sh2 = Sheets("Detail") 

lr = sh2.Range("B" & Rows.Count).End(xlUp).Row 
lc = sh2.Cells(2, Columns.Count).End(xlToLeft).Column 


j = 2 
For y = 1 To 3 ' set upper limit of first integer in Joint string 
    For x = 1 To 2 ' set upper limit of second integer in Joint string 
     For i = 2 To lr 
      If InStr(sh2.Cells(i, 2), "Joint" & y & "-" & x) <> 0 Then 
       sh2.Range(sh2.Cells(i, 1), sh2.Cells(i, lc)).Copy 
       sh1.Rows(j).Insert 
       j = j + 1 
      End If 
     Next i 
    Next x 
Next y 
End Sub