|
22万件のデータを貼り付けたいです。
配列に格納して、一括貼り付けが早いと思っています。
6万件くらいまではエラーなくできるのですが、
7万件以上のデータがあるとエラーが出てしまいます。
実行時エラー"13"
型が一致しません
どこが問題かわからないためご教授願えないでしょうか。
下記にコードを記載します。
==========
Sub test1()
Dim wb As Workbook
Dim ws1 As Worksheet, ws2 As Worksheet
Set wb = ThisWorkbook
Set ws1 = wb.Worksheets(1)
Set ws2 = wb.Worksheets(2)
Dim a() As Variant
Dim c As Long
c = 0
ReDim a(c)
Do Until ws1.Cells(c + 1, 1) = ""
a(c) = ws1.Cells(c + 1, 1).Value
c = c + 1
ReDim Preserve a(c)
Loop
ws2.Activate
ws2.Range(Cells(1, 1), Cells(UBound(a) + 1, 1)).Value = WorksheetFunction.Transpose(a)
End Sub
|
|