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
谢谢,这对我帮助很大