Cara mencetak nilai sel sebanyak nilai sel tetangganya (tidakivoting)

Saya memiliki beberapa data yang diputar atau diringkas bahwa saya perlu "tidak berpasangan". Data terlihat seperti ini:

1000000 6
1245142 4
1245246 6

Saya membutuhkannya agar terlihat seperti ini (setiap nilai di kolom pertama dicetak sebanyak yang ditentukan oleh nilai di kolom kedua):

dll.

Adakah cara sederhana untuk melakukan ini di Excel?

microsoft-excel microsoft-excel-2007 Markus Ossi
sumber

Hai Markus, dapatkah Anda memberi tahu kami apa yang telah Anda coba sejauh ini? Juga, Anda mungkin perlu menggunakan VBA untuk ini sehingga akan berguna untuk mengetahui seberapa banyak yang Anda ketahui tentang VBA

CLockeWork

Jawaban:

Beberapa VBA seperti ini, sesuaikan saja sesuai kebutuhan.

Itu terlihat dalam kisaran yang ditentukan untuk angka, memeriksa di sebelahnya untuk bilangan bulat positif dan kemudian mencetaknya di kolom lain berdasarkan sel yang berdekatan.

Sub test()
Dim i As Integer
Dim x As Integer
Dim c As Range
Dim d As Integer
d = 1

For Each c In Range("A1:A3")
i = c.Offset(, 1).Value

  If i > 0 Then

    For x = 1 To i
    Cells(d, 4) = c.Value
    d = d + 1
    Next x

  End If

Next c

End Sub

Raystafarian
sumber