从一张纸复制几列，然后在另一张纸的末尾插入
[英]Copy few columns from one sheet and insert at the end on another sheet
问题描述
我是Excel的新手，正在学习创建公式。 最近，我遇到一种情况，需要创建一个宏，在该宏中，单击“更新”按钮后，它会复制工作表中特定行的几列，并将这些复制的列插入到最后一行中的另一工作表中。
示例：以下是一张表（GUI）中的数据：
从这些数据中，我想读取所有黄色突出显示的数据，并希望将其最后插入另一张表（DataTogether）中：
需要将以上读取的值插入第二张工作表中黄色突出显示的字段中。 剩下的全部留在银行。
场景：
从第一页中显示的数据中，当我按“更新”按钮时，它将读取所有突出显示的内容，但会将数据插入第二页中，其中J列中的值已通过。
也就是说，将读取第11行和第13行中的值并将其插入到工作表2中。
插入操作后，工作表2中的数据将添加以下两个突出显示的新行（第15和16行）：
如果需要其他详细信息，请告诉我。
我希望我会尽快学习一些基础知识，并且不会再次发布这些类型的查询。
提前谢谢了。
我尝试工作并创建了一个代码，在其中将数据插入到我的硬编码行中，但是我需要在下一个可用的空白行中插入数据。 我无法找到一种方法来实现它。
请帮忙。
我创建了以下代码：
Sub Button1_Click()
If Not IsEmpty(Worksheets("GUI").Range("J7").Value) Then
Worksheets("DataTogether").Range("G17").Value = Worksheets("GUI").Range("D4").Value 'Same for All
Worksheets("DataTogether").Range("N17").Value = Worksheets("GUI").Range("L2").Value 'Same for All
Worksheets("DataTogether").Range("B17").Value = Worksheets("GUI").Range("B7").Value 'Same for All
Worksheets("DataTogether").Range("C17").Value = Worksheets("GUI").Range("B7").Value 'Same for All
Worksheets("DataTogether").Range("E17").Value = Worksheets("GUI").Range("C7").Value
Worksheets("DataTogether").Range("H17").Value = Worksheets("GUI").Range("D7").Value
Worksheets("DataTogether").Range("O17").Value = Worksheets("GUI").Range("J7").Value
Worksheets("DataTogether").Range("K17").Value = Worksheets("GUI").Range("L7").Value
End If
If Not IsEmpty(Worksheets("GUI").Range("J8").Value) Then
Worksheets("DataTogether").Range("G17").Value = Worksheets("GUI").Range("D4").Value 'Same for All
Worksheets("DataTogether").Range("N17").Value = Worksheets("GUI").Range("L2").Value 'Same for All
Worksheets("DataTogether").Range("B17").Value = Worksheets("GUI").Range("B7").Value 'Same for All
Worksheets("DataTogether").Range("C17").Value = Worksheets("GUI").Range("B7").Value 'Same for All
Worksheets("DataTogether").Range("E17").Value = Worksheets("GUI").Range("C8").Value
Worksheets("DataTogether").Range("H17").Value = Worksheets("GUI").Range("D8").Value
Worksheets("DataTogether").Range("O17").Value = Worksheets("GUI").Range("J8").Value
Worksheets("DataTogether").Range("K17").Value = Worksheets("GUI").Range("L8").Value
End If
If Not IsEmpty(Worksheets("GUI").Range("J9").Value) Then
Worksheets("DataTogether").Range("G17").Value = Worksheets("GUI").Range("D4").Value 'Same for All
Worksheets("DataTogether").Range("N17").Value = Worksheets("GUI").Range("L2").Value 'Same for All
Worksheets("DataTogether").Range("B17").Value = Worksheets("GUI").Range("B7").Value 'Same for All
Worksheets("DataTogether").Range("C17").Value = Worksheets("GUI").Range("B7").Value 'Same for All
Worksheets("DataTogether").Range("E17").Value = Worksheets("GUI").Range("C9").Value
Worksheets("DataTogether").Range("H17").Value = Worksheets("GUI").Range("D9").Value
Worksheets("DataTogether").Range("O17").Value = Worksheets("GUI").Range("J9").Value
Worksheets("DataTogether").Range("K17").Value = Worksheets("GUI").Range("L9").Value
End If
If Not IsEmpty(Worksheets("GUI").Range("J10").Value) Then
Worksheets("DataTogether").Range("G17").Value = Worksheets("GUI").Range("D4").Value 'Same for All
Worksheets("DataTogether").Range("N17").Value = Worksheets("GUI").Range("L2").Value 'Same for All
Worksheets("DataTogether").Range("B17").Value = Worksheets("GUI").Range("B7").Value 'Same for All
Worksheets("DataTogether").Range("C17").Value = Worksheets("GUI").Range("B7").Value 'Same for All
Worksheets("DataTogether").Range("E17").Value = Worksheets("GUI").Range("C10").Value
Worksheets("DataTogether").Range("H17").Value = Worksheets("GUI").Range("D10").Value
Worksheets("DataTogether").Range("O17").Value = Worksheets("GUI").Range("J10").Value
Worksheets("DataTogether").Range("K17").Value = Worksheets("GUI").Range("L10").Value
End If
' First One Created
If Not IsEmpty(Worksheets("GUI").Range("J11").Value) Then
Worksheets("DataTogether").Range("G17").Value = Worksheets("GUI").Range("D4").Value 'Same for All
Worksheets("DataTogether").Range("N17").Value = Worksheets("GUI").Range("L2").Value 'Same for All
Worksheets("DataTogether").Range("B17").Value = Worksheets("GUI").Range("B7").Value 'Same for All
Worksheets("DataTogether").Range("C17").Value = Worksheets("GUI").Range("B7").Value 'Same for All
Worksheets("DataTogether").Range("E17").Value = Worksheets("GUI").Range("C11").Value
Worksheets("DataTogether").Range("H17").Value = Worksheets("GUI").Range("D11").Value
Worksheets("DataTogether").Range("O17").Value = Worksheets("GUI").Range("J11").Value
Worksheets("DataTogether").Range("K17").Value = Worksheets("GUI").Range("L11").Value
End If
If Not IsEmpty(Worksheets("GUI").Range("J12").Value) Then
Worksheets("DataTogether").Range("G17").Value = Worksheets("GUI").Range("D4").Value 'Same for All
Worksheets("DataTogether").Range("N17").Value = Worksheets("GUI").Range("L2").Value 'Same for All
Worksheets("DataTogether").Range("B17").Value = Worksheets("GUI").Range("B7").Value 'Same for All
Worksheets("DataTogether").Range("C17").Value = Worksheets("GUI").Range("B7").Value 'Same for All
Worksheets("DataTogether").Range("E17").Value = Worksheets("GUI").Range("C12").Value
Worksheets("DataTogether").Range("H17").Value = Worksheets("GUI").Range("D12").Value
Worksheets("DataTogether").Range("O17").Value = Worksheets("GUI").Range("J12").Value
Worksheets("DataTogether").Range("K17").Value = Worksheets("GUI").Range("L12").Value
End If
If Not IsEmpty(Worksheets("GUI").Range("J13").Value) Then
Worksheets("DataTogether").Range("G18").Value = Worksheets("GUI").Range("D4").Value 'Same for All
Worksheets("DataTogether").Range("N18").Value = Worksheets("GUI").Range("L2").Value 'Same for All
Worksheets("DataTogether").Range("B18").Value = Worksheets("GUI").Range("B7").Value 'Same for All
Worksheets("DataTogether").Range("C18").Value = Worksheets("GUI").Range("B7").Value 'Same for All
Worksheets("DataTogether").Range("E18").Value = Worksheets("GUI").Range("C13").Value
Worksheets("DataTogether").Range("H18").Value = Worksheets("GUI").Range("D13").Value
Worksheets("DataTogether").Range("O18").Value = Worksheets("GUI").Range("J13").Value
Worksheets("DataTogether").Range("K18").Value = Worksheets("GUI").Range("L13").Value
End If
End Sub
1 个解决方案
解决方案1
0 已采纳 2017-05-12 08:08:06
这可以帮助其他人，因此在此处发布答案：
Sub Button1_Click()
LastRow = Worksheets("DataTogether").Range("E" & Rows.Count).End(xlUp).Row + 1
If Not IsEmpty(Worksheets("GUI").Range("J7").Value) Then
Worksheets("DataTogether").Range("G" & LastRow).Value = Worksheets("GUI").Range("D4").Value 'Same for All
Worksheets("DataTogether").Range("N" & LastRow).Value = Worksheets("GUI").Range("L2").Value 'Same for All
Worksheets("DataTogether").Range("B" & LastRow).Value = Worksheets("GUI").Range("B7").Value 'Same for All
Worksheets("DataTogether").Range("C" & LastRow).Value = Worksheets("GUI").Range("B7").Value 'Same for All
Worksheets("DataTogether").Range("E" & LastRow).Value = Worksheets("GUI").Range("C7").Value
Worksheets("DataTogether").Range("H" & LastRow).Value = Worksheets("GUI").Range("D7").Value
Worksheets("DataTogether").Range("O" & LastRow).Value = Worksheets("GUI").Range("J7").Value
Worksheets("DataTogether").Range("K" & LastRow).Value = Worksheets("GUI").Range("L7").Value
End If
LastRow = Worksheets("DataTogether").Range("E" & Rows.Count).End(xlUp).Row + 1
If Not IsEmpty(Worksheets("GUI").Range("J8").Value) Then
Worksheets("DataTogether").Range("G" & LastRow).Value = Worksheets("GUI").Range("D4").Value 'Same for All
Worksheets("DataTogether").Range("N" & LastRow).Value = Worksheets("GUI").Range("L2").Value 'Same for All
Worksheets("DataTogether").Range("B" & LastRow).Value = Worksheets("GUI").Range("B7").Value 'Same for All
Worksheets("DataTogether").Range("C" & LastRow).Value = Worksheets("GUI").Range("B7").Value 'Same for All
Worksheets("DataTogether").Range("E" & LastRow).Value = Worksheets("GUI").Range("C8").Value
Worksheets("DataTogether").Range("H" & LastRow).Value = Worksheets("GUI").Range("D8").Value
Worksheets("DataTogether").Range("O" & LastRow).Value = Worksheets("GUI").Range("J8").Value
Worksheets("DataTogether").Range("K" & LastRow).Value = Worksheets("GUI").Range("L8").Value
End If
LastRow = Worksheets("DataTogether").Range("E" & Rows.Count).End(xlUp).Row + 1
If Not IsEmpty(Worksheets("GUI").Range("J9").Value) Then
Worksheets("DataTogether").Range("G" & LastRow).Value = Worksheets("GUI").Range("D4").Value 'Same for All
Worksheets("DataTogether").Range("N" & LastRow).Value = Worksheets("GUI").Range("L2").Value 'Same for All
Worksheets("DataTogether").Range("B" & LastRow).Value = Worksheets("GUI").Range("B7").Value 'Same for All
Worksheets("DataTogether").Range("C" & LastRow).Value = Worksheets("GUI").Range("B7").Value 'Same for All
Worksheets("DataTogether").Range("E" & LastRow).Value = Worksheets("GUI").Range("C9").Value
Worksheets("DataTogether").Range("H" & LastRow).Value = Worksheets("GUI").Range("D9").Value
Worksheets("DataTogether").Range("O" & LastRow).Value = Worksheets("GUI").Range("J9").Value
Worksheets("DataTogether").Range("K" & LastRow).Value = Worksheets("GUI").Range("L9").Value
End If
LastRow = Worksheets("DataTogether").Range("E" & Rows.Count).End(xlUp).Row + 1
If Not IsEmpty(Worksheets("GUI").Range("J10").Value) Then
Worksheets("DataTogether").Range("G" & LastRow).Value = Worksheets("GUI").Range("D4").Value 'Same for All
Worksheets("DataTogether").Range("N" & LastRow).Value = Worksheets("GUI").Range("L2").Value 'Same for All
Worksheets("DataTogether").Range("B" & LastRow).Value = Worksheets("GUI").Range("B7").Value 'Same for All
Worksheets("DataTogether").Range("C" & LastRow).Value = Worksheets("GUI").Range("B7").Value 'Same for All
Worksheets("DataTogether").Range("E" & LastRow).Value = Worksheets("GUI").Range("C10").Value
Worksheets("DataTogether").Range("H" & LastRow).Value = Worksheets("GUI").Range("D10").Value
Worksheets("DataTogether").Range("O" & LastRow).Value = Worksheets("GUI").Range("J10").Value
Worksheets("DataTogether").Range("K" & LastRow).Value = Worksheets("GUI").Range("L10").Value
End If
LastRow = Worksheets("DataTogether").Range("E" & Rows.Count).End(xlUp).Row + 1
' First One Created
If Not IsEmpty(Worksheets("GUI").Range("J11").Value) Then
Worksheets("DataTogether").Range("G" & LastRow).Value = Worksheets("GUI").Range("D4").Value 'Same for All
Worksheets("DataTogether").Range("N" & LastRow).Value = Worksheets("GUI").Range("L2").Value 'Same for All
Worksheets("DataTogether").Range("B" & LastRow).Value = Worksheets("GUI").Range("B7").Value 'Same for All
Worksheets("DataTogether").Range("C" & LastRow).Value = Worksheets("GUI").Range("B7").Value 'Same for All
Worksheets("DataTogether").Range("E" & LastRow).Value = Worksheets("GUI").Range("C11").Value
Worksheets("DataTogether").Range("H" & LastRow).Value = Worksheets("GUI").Range("D11").Value
Worksheets("DataTogether").Range("O" & LastRow).Value = Worksheets("GUI").Range("J11").Value
'Worksheets("DataTogether").Range("K17").Value = Worksheets("GUI").Range("L11").Value
Worksheets("DataTogether").Range("K" & LastRow).Value = Worksheets("GUI").Range("L11").Value
End If
LastRow = Worksheets("DataTogether").Range("E" & Rows.Count).End(xlUp).Row + 1
If Not IsEmpty(Worksheets("GUI").Range("J12").Value) Then
Worksheets("DataTogether").Range("G" & LastRow).Value = Worksheets("GUI").Range("D4").Value 'Same for All
Worksheets("DataTogether").Range("N" & LastRow).Value = Worksheets("GUI").Range("L2").Value 'Same for All
Worksheets("DataTogether").Range("B" & LastRow).Value = Worksheets("GUI").Range("B7").Value 'Same for All
Worksheets("DataTogether").Range("C" & LastRow).Value = Worksheets("GUI").Range("B7").Value 'Same for All
Worksheets("DataTogether").Range("E" & LastRow).Value = Worksheets("GUI").Range("C12").Value
Worksheets("DataTogether").Range("H" & LastRow).Value = Worksheets("GUI").Range("D12").Value
Worksheets("DataTogether").Range("O" & LastRow).Value = Worksheets("GUI").Range("J12").Value
Worksheets("DataTogether").Range("K" & LastRow).Value = Worksheets("GUI").Range("L12").Value
End If
LastRow = Worksheets("DataTogether").Range("E" & Rows.Count).End(xlUp).Row + 1
If Not IsEmpty(Worksheets("GUI").Range("J13").Value) Then
Worksheets("DataTogether").Range("G" & LastRow).Value = Worksheets("GUI").Range("D4").Value 'Same for All
Worksheets("DataTogether").Range("N" & LastRow).Value = Worksheets("GUI").Range("L2").Value 'Same for All
Worksheets("DataTogether").Range("B" & LastRow).Value = Worksheets("GUI").Range("B7").Value 'Same for All
Worksheets("DataTogether").Range("C" & LastRow).Value = Worksheets("GUI").Range("B7").Value 'Same for All
Worksheets("DataTogether").Range("E" & LastRow).Value = Worksheets("GUI").Range("C13").Value
Worksheets("DataTogether").Range("H" & LastRow).Value = Worksheets("GUI").Range("D13").Value
Worksheets("DataTogether").Range("O" & LastRow).Value = Worksheets("GUI").Range("J13").Value
'Worksheets("DataTogether").Range("K18").Value = Worksheets("GUI").Range("L13").Value
Worksheets("DataTogether").Range("K" & LastRow).Value = Worksheets("GUI").Range("L13").Value
End If
End Sub
基于自动过滤器将粘贴列从一张工作表复制到另一张工作表
[英]Copy Paste Columns from one sheet to another sheet based on Autofilter
将其他工作簿中的几列复制到当前工作簿和当前工作表
[英]copy few columns from another workbook to the current workbook and current sheet
将一个Excel工作表中的两列与另一工作表中的两列进行比较，如果匹配，则从另一列中复制数据
[英]Comparing two columns in one Excel sheet, to two columns in another sheet, and if they match, copy data from another column
将列从一个Excel工作表复制到另一种具有不同格式的工作表
[英]Copy columns from one excel sheet to another with different formatting
声明:本站的技术帖子网页，遵循CC BY-SA 4.0协议，如果您需要转载，请注明本站网址或者原文地址。任何问题请咨询:yoyou2525@163.com.