Kunci Swasta tiada Microsoft Excel - Bagaimana Untuk

Kunci Swasta tiada Microsoft Excel

Tidak ada Excel, jika ada transformator yang ada pada halaman utama (jika tidak ada yang lain), jangan lupa untuk menggunakan ALT + F11, klik dua kali menu yang tidak ada di menu dan klik berikut:

Sub-lembaran kerja persendirian (sasaran ByVal Sebagai Julat)
Dim targ As Range, Cel As Range, rg As Range
Tetapkan targ = [F3: F55625]
'mude o range untuk coluna desejada
Tetapkan targ = Intersect (targ, sasaran)
Jika targ Tidak Ada Kemudian Keluar Sub

Untuk Setiap cel Dalam targ.Cells
Jika cel <> "" Kemudian
Tetapkan rg = Kolum (cel.Column). Cari (cel, LookIn: = xlValues, selepas: = cel)
Jika rg.Address <> cel.Address Kemudian
Application.EnableEvents = Palsu
cel = ""
cel.Select
Application.EnableEvents = Benar
MsgBox "Entrada duplicada!" & Cel.valu
Akhir Jika
Akhir Jika
Seterusnya
Sub Akhir