根据条件修改列

【问题标题】：modify columns according to condition根据条件修改列
【发布时间】：2018-11-29 00:56:01
【问题描述】：

我有以下问题，我有2列如下：

 A B
"X" 1
"Y" 1
"Z" 0
"W" 2

我想做的是找到一种方法来创建新的列 C 和 D，或者更好的是，更新列 A 和 B，如下所示：

 C D
"X" 1
"Y" 1
"Z" 0
"W (1)" 1
"W (2)" 1

任何关于如何做到这一点的建议或想法将不胜感激。

【问题讨论】：

标签： excel vba if-statement conditional-statements

【解决方案1】：

这不应该是一个代码编写论坛。你应该表现出一些努力。

Sub split_()

Dim P1 As Range
Range("C1:D99999").Clear
Set P1 = Range("A1").CurrentRegion
a = 1

For i = P1(1).Row To P1.Rows.Count
    If P1(i, 2) > 1 Then
        For j = 1 To P1(i, 2)
            Cells(a, 3) = P1(i, 1) & " (" & j & ")"
            Cells(a, 4) = 1
            a = a + 1
        Next j
    Else
        Cells(a, 3) = P1(i, 1)
        Cells(a, 4) = P1(i, 2)
        a = a + 1
    End If
Next i

End Sub

【讨论】：

谢谢，这对我帮助很大