Excel vba salin nilai sel dan tempel ke sel lain

Halo semua,

Saya telah melakukan beberapa penggalian di situs Anda dan saya telah menemukan kode di bawah ini, yang saya percaya bekerja 98% untuk saya

Apa yang saya lakukan adalah memiliki tabel yang saya perlukan untuk memperbarui sel berdasarkan pencocokan kunci utama

(saya menyalin kode ini dari topik sebelumnya di forum ini)

Kode VBA

Sub findAndCopy()
  Dim foundCell As Range, sh1, sh2 As Worksheet
  
  'Set sheets
  Set sh1 = Sheets("Data Capture")
  Set sh2 = Sheets("DataTable")
  
  'Find string in column A of Sheet2
  Set foundCell = sh2.Range("Table5[PrimaryKey]").Find(sh1.Range("Z2").Value, , xlValues, xlWhole)
  If Not foundCell Is Nothing Then 'If match cell is found
    sh1.Range("B2").Copy
    foundCell.PasteSpecial xlPasteValues
    foundCell.PasteSpecial xlPasteFormats
    Application.CutCopyMode = False
  Else
    Call MsgBox("Not found the match cell!", vbExclamation, "Finding String")
  End If
End Sub

ABC1BarisNilai BaruNilai Baru 2211234ABC3212345ZXC

Dalam tutorial ini, Anda akan mempelajari beberapa metode berbeda untuk Salin & Tempel dan Potong & Tempel menggunakan makro VBA. Baca tutorial pendamping tentang Value Paste dan PasteSpecial untuk opsi salin dan tempel lebih lanjut

Untuk menggunakan kode ini. Buka Editor Visual Basic (Alt + F11), Sisipkan modul baru (Sisipkan > Modul) dan salin & tempel kode yang diinginkan ke dalam modul

Salin (Potong) dan Tempel Satu Sel

Contoh ini menyalin atau memotong dan menempelkan satu sel, A1 ke B1

Sub Paste_OneCell()

    'Copy and Paste Single Cell
    Range("A1").Copy Range("B1")

    'Cut and Paste Single Cell
    Range("A1").Cut Range("B1")

End Sub

Pengkodean VBA Menjadi Mudah

Berhenti mencari kode VBA online. Pelajari lebih lanjut tentang AutoMacro – Pembuat Kode VBA yang memungkinkan pemula untuk membuat kode prosedur dari awal dengan pengetahuan pengkodean minimal dan dengan banyak fitur hemat waktu untuk semua pengguna

Belajarlah lagi

Salin Pilihan

Jika Anda ingin menyalin pilihan aktif, gunakan ini

Sub CopySelection()

'Paste to a Defined Range
Selection.copy range("b1")

'Offset Paste (offsets 2 cells down and 1 to the right
Selection.copy
Selection.offset(2,1).paste

Application.CutCopyMode = False

End Sub

Salin (Potong) dan Tempel Rentang Sel

Contoh ini menyalin atau memotong dan menempelkan rentang sel, A1. A3 ke B1. B3

Sub Paste_Range()

    'Copy and Paste a Range of Cells
    Range("A1:A3").Copy Range("B1:B3")

    'Cut and Paste a Range of Cells
    Range("A1:A3").Cut Range("B1:B3")

End Sub

Salin (Potong) dan Tempel Seluruh Kolom

Di bawah ini kami akan menunjukkan beberapa contoh cepat. Baca artikel kami tentang Menyalin dan Menempelkan Baris dan Kolom untuk contoh, penjelasan, dan variasi mendetail

Contoh ini menyalin atau memotong dan menempelkan seluruh kolom, A ke B

Sub PasteOneColumn()

    'Copy and Paste Column
    Range("A:A").Copy Range("B:B")


    'Cut and Paste Column
    Range("A:A").Cut Range("B:B")

End Sub

Salin (Potong) dan Tempel Seluruh Baris

Contoh ini menyalin atau memotong dan menempelkan seluruh baris, 1 ke 2

Sub Paste_OneRow()

    'Copy and Paste Row
    Range("1:1").Copy Range("2:2")


    'Cut and Paste Row
    Range("1:1").Cut Range("2:2")

End Sub

Salin (Potong) dan Tempel ke Lembar Kerja atau Buku Kerja Lain

Sub Paste_Other_Sheet_or_Book()

    'Cut or Copy and Paste to another worksheet
    Worksheets("sheet1").Range("A1").Copy Worksheets("sheet2").Range("B1") 'Copy
    Worksheets("sheet1").Range("A1").Cut Worksheets("sheet2").Range("B1") 'Cut

    'Cut or Copy and Paste to another workbook
    Workbooks("book1.xlsm").Worksheets("sheet1").Range("A1").Copy _ 
    Workbooks("book2.xlsm").Worksheets("sheet1").Range("B1") 'Copy
    Workbooks("book1.xlsm").Worksheets("sheet1").Range("A1").Cut _ 
    Workbooks("book2.xlsm").Worksheets("sheet1").Range("B1") 'Cut

    Application.CutCopyMode = False
End Sub

Tempel Nilai

Biasanya, saat Anda Salin dan Tempel, Anda Tempel semua properti sel. pemformatan, formula, dll. Value Paste memungkinkan Anda untuk Menyalin dan Menempelkan nilai sel dan tidak ada yang lain. Cara termudah untuk Value Paste di VBA adalah dengan menentukan nilai sel secara langsung

Sub ValuePaste()

    'Value Paste Cells
    Range("B1").value = Range("A1").value
    Range("B1:B3").value = Range("A1:A3").value

    'Set Values Between Worksheets
    Worksheets("sheet2").range("A1").value = Worksheets("sheet1").range("A1").value

    'Set Values Between Workbooks
    Workbooks("book2.xlsm").Worksheets("sheet1").range("A1").value = _
    Workbooks("book1.xlsm").Worksheets("sheet1").range("A1").value

    Application.CutCopyMode = False
End Sub

Tempel Spesial

Tempel Spesial memungkinkan Anda untuk Menyalin dan Menempel properti sel tertentu (contoh. format, nilai, lebar kolom, dll. ). Ini juga memungkinkan Anda untuk melakukan operasi tempel khusus (contoh. lewati yang kosong, transpose). Kami akan melihat beberapa contoh di bawah ini, tetapi untuk lebih mendalam, baca tutorial kami tentang Value Paste dan Paste Special

Sub PasteSpecial()

    'Perform one Paste Special Operation:
    Range("A1").Copy
    'Paste Formats
    Range("B1").PasteSpecial Paste:=xlPasteFormats
    'Paste Column Widths
    Range("B1").PasteSpecial Paste:=xlPasteColumnWidths
    'Paste Formulas
    Range("B1").PasteSpecial Paste:=xlPasteFormulas

    'Perform Multiple Paste Special Operations at Once:
    Range("A1").Copy
    'Paste Formats and Transpose
    Range("B1").PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, SkipBlanks:= _
        False, Transpose:=True

    Application.CutCopyMode = False
End Sub

Hapus Papan Klip

Setelah Menyalin & Menempel Anda mungkin ingin menghapus papan klip (kami melakukannya di beberapa contoh kode di atas). Untuk menghapus clipboard Excel, kami mengatur Application. CutCopyMode ke Salah

Application.CutCopyMode = False

Ini akan menghapus clipboard Excel. Namun, itu tidak akan menghapus Clipboard Windows. Untuk menghapus clipboard Window, ikuti instruksi di sini

Bagaimana cara menyalin dan menempelkan nilai di Excel VBA?

Bagaimana cara menyalin dan menempelkan sel di VBA?

Bagaimana cara menyalin dan menempelkan rentang sel di Excel VBA?

Bagaimana Anda menyalin dan menempelkan nilai bukan rumus di Excel VBA?