データのコピー中にデータを連結する

Question

私は大きなデータセットを扱っています。私はデータをトリミングしようとしています。

私は自分のニーズにほぼ合うようにいくつかのコードを修正することができました。

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を使用している間に '&'を使用する方法を理解しようとしています。私は範囲を扱っているので文字列ではないので '&'を使うことはできません。データをコピーするのと同じ時点で連結することは可能ですか？

Answer 1

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 

Answer 2

ループを使用する必要があります。範囲全体を一度に行うことはできません。これはあなたが始める必要があります。

Sub Concat() 

Dim lRow As Long 

lRow = Range("B" & Rows.count).End(xlUp).Row 

For i = 2 To lRow 
    Range("C" & i) = Range("A"& i) & " " & Range("B" & i) 
Next i 

End Sub