Question

我正在尝试将图表的值堆叠成一列。

所以我的数据如下：

-------A--------B  
1 Value1 Value2  
2 Value3  
3 Value4  
4 Value5 Value6  
5 Value7

如果单元格1B没有= 0我想在第1行和第2行之间添加一行（我将该行称为“11”）并取出Value2并将其粘贴到11A中如果单元格1B是空白的，我希望它什么都不做

所以我希望我的数据看起来像这样：

1....Value1   
11..Value2  
2....Value3  
3....Value4   
4....Value5   
41..Value6   
5....Value7

任何人都可以帮助我吗？

Answer 1

Id it's列＆＃34; A＆＃34;，value1列＆＃34; B＆＃34;，value2列＆＃34; C＆＃34;。
代码是：

Dim i As Integer

For i = 1 To 9999
    If Range("C" & i).Value <> "" Then
        Range("A" & i + 1 & ":C" & i + 1).Select
        Selection.Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
        Range("A" & i + 1).Value = Range("A" & i).Value & 1
        Range("B" & i + 1).Value = Range("C" & i).Value
        Range("C" & i).Value = ""
    End If

    If Range("A" & i).Value = "" Then Exit For
Next

如果单元格不为空，则在Excel 2010中添加行

1 个答案: