Saya mencoba menempelkan data dari buku kerja ke yang lain. Saya perlu mengimpor data tersebut pada baris pertama kolom yang kosong. Karena kolom ini mungkin berisi sel kosong, saya harus menentukan baris kosong pertama berkat kolom lain yang tidak memungkinkan sel kosong.

Saya menulis kode ini:

=> Untuk menentukan baris kosong pertama:

Dim n
With Worksheets("Dest")
n = .Range("L" & .Rows.Count).End(xlDown).Row + 1
End With

=> Untuk menempel di posisi yang tepat:

For j = 0 To (finas - debutas)
Worksheets("Dest").Cells(n, debutad + j) = Vcol(j)
Next j

Tetapi sistem terus menempelkan data pada baris pertama ... Apa yang saya lakukan salah?

Terima kasih atas jawaban! :)

0
John Doe 15 Januari 2018, 19:09

1 menjawab

Jawaban Terbaik

Anda tidak menambah n di loop Anda.

For j = 0 To (finas - debutas)
  Worksheets("Dest").Cells(n, debutad + j) = Vcol(j)
  n=n+1
Next j

'or

For j = 0 To (finas - debutas)
  Worksheets("Dest").Cells(n+j, debutad + j) = Vcol(j)
Next j
0
SJR 15 Januari 2018, 16:12