Warning: file_get_contents(/data/phpspider/zhask/data//catemap/5/excel/25.json): failed to open stream: No such file or directory in /data/phpspider/zhask/libs/function.php on line 167

Warning: Invalid argument supplied for foreach() in /data/phpspider/zhask/libs/tag.function.php on line 1116

Notice: Undefined index: in /data/phpspider/zhask/libs/function.php on line 180

Warning: array_chunk() expects parameter 1 to be array, null given in /data/phpspider/zhask/libs/function.php on line 181

Warning: file_get_contents(/data/phpspider/zhask/data//catemap/0/vba/16.json): failed to open stream: No such file or directory in /data/phpspider/zhask/libs/function.php on line 167

Warning: Invalid argument supplied for foreach() in /data/phpspider/zhask/libs/tag.function.php on line 1116

Notice: Undefined index: in /data/phpspider/zhask/libs/function.php on line 180

Warning: array_chunk() expects parameter 1 to be array, null given in /data/phpspider/zhask/libs/function.php on line 181
Excel 根据条件修改列_Excel_Vba_If Statement_Conditional Statements - Fatal编程技术网

Excel 根据条件修改列

Excel 根据条件修改列,excel,vba,if-statement,conditional-statements,Excel,Vba,If Statement,Conditional Statements,我有以下问题,我有两列,如下所示: A B "X" 1 "Y" 1 "Z" 0 "W" 2 C D "X" 1 "Y" 1 "Z" 0 "W (1)" 1 "W (2)" 1 我想做的是找到一种方法来创建新的列C和D,或者更好的是,更新列a和B,如下所示: A B "X" 1 "Y" 1 "Z" 0 "W" 2 C D "X" 1 "Y" 1 "Z" 0 "W (1)" 1 "W (2)" 1 如果您有任何建议或想法,我将不胜感激。这不是一个代码编写论坛。你应该表现出一些努力 S

我有以下问题,我有两列,如下所示:

 A B
"X" 1
"Y" 1
"Z" 0
"W" 2
 C D
"X" 1
"Y" 1
"Z" 0
"W (1)" 1
"W (2)" 1
我想做的是找到一种方法来创建新的列C和D,或者更好的是,更新列a和B,如下所示:

 A B
"X" 1
"Y" 1
"Z" 0
"W" 2
 C D
"X" 1
"Y" 1
"Z" 0
"W (1)" 1
"W (2)" 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

谢谢,这对我帮助很大