Question

您好我会尝试清楚地解释我需要做什么，这里是：

我有一张Excel电子表格1，其中包含A列中的邮政编码和B列中的数字。我需要创建一个宏/公式，以便它可以看到数字（即3）并将邮政编码复制并粘贴到彼此相对的表格2列中。我需要为下一行等做这个，直到它出现空白。

第1页

A       B
DE43PP  3
DE43PQ  8

第2页

A       B
DE43PP
DE43PP
DE43PP
DE43PQ
...

由于

Answer 1

试试这个：

Sub copyPostcodes()
    Dim c As Range
    Dim x As Long
    Dim y As Long

    y = 0

    For Each c In Sheets("Sheet1").Range("A:A").Cells
        If Len(c) > 0 Then
            For x = 1 To c.Offset(0, 1)
                Sheets("Sheet2").Range("A1").Offset(y, 0) = c
                y = y + 1
            Next x
        End If
    Next c
End Sub

Excel宏，根据另一个单元格值复制和粘贴单元格值？

1 个答案: