Değerlerin Excel'de Col A'dan Col B'ye veri kaybı olmadan kopyalanması gerekir


0

Excel'imde 2 sütunum var Ex: Col A & amp; Col B. A sütununda 100 kayıt var ama B sütununda sıra ile dağılmayan sadece 50 kayıt var. Aynı bilgiyi kopyalayıp yapıştırmak zorundayım. Bakıp değerleri kopyalayıp yapıştırmaya çalıştığımda, verileri doğru şekilde ele almıyor. Birisi lütfen bunu nasıl yapabileceğimi bilmeme izin verebilir mi?


Elektronik tablo formülleri mi VBA mı kullanıyorsunuz? Sütun B'deki eksik bilgileri doldurmak mı istiyorsunuz ya da (Sütun B) veya (Sütun B yoksa, Sütun A) içeren yeni bir Sütun mu (örneğin, SütunC) oluşturuyor musunuz?
OldUgly

Yeni sütun yok, B sütununda eksik olan bilgileri kopyalamam gerekiyor
Anand

Elektronik tablo formülü ve Kullanıcı Tanımlı İşlevler (UDF), diğer hücrelerin veya çalışma sayfası özelliklerinin içeriğini değiştiremez. Bu görevi gerçekleştirmek için VBA kullanmanız gerekecektir.
OldUgly

Bunu yapmak için herhangi bir formülümüz var mı? Bilmeme izin ver
Anand

Mevcut verilere bir örnek ve nihai sonucu nasıl istediğinize bir örnek verebilir misiniz?
Burgi

Yanıtlar:


0

Aşağıda VBA kullanan bir çözüm var. İşte kullanılan kod ...

Sub FillInMissing()
Dim mySht As Worksheet
Dim lstRow As Long, lstCol As Long
Dim iLoop As Long

    Set mySht = Worksheets("Sheet6")
    lstRow = mySht.Range("A" & mySht.Rows.Count).End(xlUp).Row
    lstCol = mySht.Cells(1, mySht.Columns.Count).End(xlToLeft).Column


    For iLoop = 1 To lstRow
        If Len(mySht.Cells(iLoop, 2).Value) = 0 Then
            mySht.Cells(iLoop, 2).Value = mySht.Cells(iLoop, 1).Value
        End If
    Next iLoop

End Sub

Bu gibi görünen verilerle başlayarak ...

enter image description here

Kod çalıştıktan sonra şöyle gözüküyor ...

enter image description here

Sitemizi kullandığınızda şunları okuyup anladığınızı kabul etmiş olursunuz: Çerez Politikası ve Gizlilik Politikası.
Licensed under cc by-sa 3.0 with attribution required.