复制数据时串联数据

Grant 发表于 Dev

授予

我正在处理一个大型数据集。我正在尝试整理数据。

多亏了寻找stackoverflow，我才能够修改一些代码来满足我的需求。

Sub CopyData()
Dim sourceColumn As Range, targetColumn As Range

Set sourceColumn = Workbooks("Parcels Data.xlsm").Worksheets("Parcels").Columns("A")
Set targetColumn = Workbooks("Parcel Data for NSDB.xlsm").Worksheets("Imported").Columns("A")

sourceColumn.Copy Destination:=targetColumn
Set sourceColumn = Workbooks("Parcels Data.xlsm").Worksheets("Parcels").Columns("B")
Set targetColumn = Workbooks("Parcel Data for NSDB.xlsm").Worksheets("Imported").Columns("B")

sourceColumn.Copy Destination:=targetColumn

End Sub

这导入了我所需要的。

我需要将B和C列以及两个值之间的空格连接在一起。此新文件将用于导入到其他数据库，因此我需要特定格式的文件。

我一直在尝试找出如何在使用Range.Copy时使用'＆'。我不能只使用'＆'，因为它不是字符串，因为我正在处理范围。是否可以在复制数据的同时进行连接？

皮埃尔

Sub CopyData()
Dim source, dest, i&
With Workbooks("Parcels Data.xlsm").Worksheets("Parcels")
    source = Range(.Range("A1"), .Cells(.Rows.Count, 2)).Value
End With
ReDim dest(1 To UBound(source), 1 To 1)
For i = 1 To UBound(dest)
    dest(i,1) = source(i, 1) & " " & source(i, 2)
Next
With Workbooks("Parcel Data for NSDB.xlsm").Worksheets("Imported")
    Range(.Range("A1"), .Cells(UBound(dest), 1)) = dest
End With
End Sub

本文收集自互联网，转载请注明来源。

如有侵权，请联系 [email protected] 删除。