将选定的动态数据列从一张工作表复制并粘贴到另一张工作表
阿纳普
我想将数据从工作表 1 中的特定列复制到工作表 2 中的特定列。有 20 个这样的列，并且该映射在一个表中维护
我已经编写了代码来搜索列名（源和目标表），但无法将数据从源列（动态范围）复制到目标列。
Sub search_validate()
Dim j As Integer
Dim sourcSearch, destSearch As String
Dim sCell, dCell As Range
For j = 3 To 20
sourcSearch = Sheet6.Range("Z" & j).Value ' pickup selected source column name
destSearch = Sheet6.Range("AA" & j).Value ' pickup selected destination column name
Set sCell = Sheet1.Rows(2).Find(What:=sourcSearch, LookIn:=xlValues, _
LookAt:=xlWhole, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
MatchCase:=False, SearchFormat:=False)
Set dCell = Sheet2.Rows(2).Find(What:=destSearch, LookIn:=xlValues, _
LookAt:=xlWhole, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
MatchCase:=False, SearchFormat:=False)
' sCell.Address or sCell.Column to get source column header address but data starts after this column. dynamic range
' dCell.Address or dCell.Column to get destination column header address. no data in destination column except header.
Next j
End Sub
锡人
这应该将数据附加到目标列的末尾
If Not sCell Is Nothing And Not dCell Is Nothing Then
Dim Source As Range, Target As Range
Set Source = Intersect(Sheet1.UsedRange, sCell.EntireColumn).Offset(1)
Set Target = Sheet2.Cells(Sheet2.Rows.Count, dCell.Column).End(xlUp).Offset(1)
Source.Copy Destination:=Target
End If
本文收集自互联网，转载请注明来源。
如有侵权，请联系[email protected] 删除。
编辑于
相关文章
Related 相关文章
- 1
如何使用列名从一张工作表复制数据并粘贴到具有相同列名的另一张工作表？
- 2
Excel Vba - 如何将匹配的行从一张工作表复制并粘贴到另一张工作表中完全匹配的行下方
- 3
试图从多个工作表中一张一张地复制数据并粘贴到不同的工作表中。
- 4
从一张纸复制数据并将其粘贴到同一工作簿的另一张纸上
- 5
从一张工作表中复制和转置数据并创建一个新工作表，然后将数据粘贴到新工作表中
- 6
使用粘贴和插入行将数据从一张工作表复制到另一张工作表
- 7
从一张纸复制数据并将该数据粘贴到所有工作表中
- 8
宏：根据工作表名称和特定列，将值从一张工作表复制到另一张工作表
- 9
将列从一张纸复制到另一张工作簿
- 10
将值粘贴到另一张工作表中的匹配单元格中
- 11
将特定列从一张工作表复制到另一张工作表的脚本，但顺序不同
- 12
VBA从自动筛选器复制并粘贴到另一张工作表中，输出一行
- 13
循环：将单元格值（在列表中）从一张工作表复制到另一张工作表
- 14
循环：将单元格值（在列表中）从一张工作表复制到另一张工作表
- 15
将大量行从一张工作表复制到另一张工作表，但Excel 2010中的空白行除外
- 16
VBA Excel将行从一张工作表复制到另一张工作表中具有特定值的行
- 17
将 Excel 中匹配记录的行值从一张工作表复制到另一张工作表
- 18
从 Excel 文件中所有工作表的列中复制数据并将其粘贴到一张工作表中
- 19
将动态行范围复制/追加到另一张工作表
- 20
SQL Server 将随机数据从一张表复制到另一张表
- 21
如何将数据从一张excel表复制到另一张excel表？
- 22
如何分离列数据以从一张表复制到另一张表？
- 23
将数据从一张表插入到另一张表 - MySQL
- 24
将数据从一张表访问到另一张表
- 25
VBA：将数据段复制到另一张工作表上
- 26
如何将单元格中的值从多个（但不是全部）行和列从一张工作表复制到另一张工作表
- 27
复制问题 - 从一张纸粘贴到另一张纸的第二张纸
- 28
VBA将符合条件的行复制到仅粘贴值的另一张工作表
- 29
如何使用laravel从一张表复制到另一张表？
我来说两句