PK bertanya:
Saya mempunyai lembaran kerja di mana saya memasukkan beberapa nilai. Setelah mengklik butang makro, saya mahu nilai atau hasilnya yang dikira ditambahkan pada helaian atau fail yang berbeza.
Soalan yang baik. Katakan nilai berada dalam sel C10 dan E12 dari Helaian1 dan anda mahu nilai tersebut ditambahkan ke baris seterusnya dalam Helaian2.
Silap mata sebenarnya di sini adalah kod untuk mencari baris seterusnya di Sheet2. Bermula pada baris terakhir di Sheet2 (A65536) dan kemudian menggunakan .End (xlup) akan menemui baris terakhir dengan data di lajur A. Menambah 1 ke baris itu akan mengarahkan anda ke baris seterusnya untuk data pada Sheet2. Gunakan kod ini:
Sub CopyThem() NextRow = Worksheets("Sheet2").Range("A65536").End(xlUp).Row + 1 Worksheets("Sheet2").Cells(NextRow, 1).Resize(1, 2).Value = Array( _ Worksheets("Sheet1").Range("C10").value, _ Worksheets("Sheet1").Range("E12").value) End Sub
