[已解决]怎么让循环插入的数据没有空行

787851791

我循环插入单元格数据，但是里面有调价判断，这样不符合条件的数据就占空了一行 怎么让他们一行接一行呢

最佳答案

月排行榜 / 总排行榜

妞叫七七

2013-6-20 17:04

'Cells((i + 7) / 2, 1) = bh  '商品编号插入单元格

别直接用变量i,可以用变量K
K=K+1
'Cells((k + 7) / 2, 1)

跳转到最佳答案楼层

妞叫七七

不符合条件不插入,具本还要看表格

787851791

妞叫七七 发表于 2013-6-20 16:52
不符合条件不插入,具本还要看表格

我是符合条件的就插入到固定格子，才会出现这种情况，你卡夏代码

1. For i = 0 To divt(1).Children(1).Children.Length - 1
   
2.         If i Mod 2 <> 0 Then
   
3.             xl = divt(1).Children(1).Children(i).Children(5).innertext '总销量
   
4.             If xl = 0 Then
   
5.                 bh = Mid(Trim(divt(1).Children(1).Children(i - 1).innertext), 6) '商品编号
   
6.                 'Cells((i + 7) / 2, 1) = bh  '商品编号插入单元格
   
7.                 bt = Replace(divt(1).Children(1).Children(i).Children(2).innertext, vbCrLf, "")
   
8.                 bt = Mid(bt, 1, InStr(bt, "编辑宝贝标题") - 1)
   
9.                 'Cells((i + 7) / 2, 2) = bt '宝贝标题插入单元格
   
10.                 'Cells((i + 7) / 2, 3) = xl '总销量插入单元格
    
11.                 kc = divt(1).Children(1).Children(i).Children(4).innertext '总库存
    
12.                 'Cells((i + 7) / 2, 4) = kc '总库存插入单元格
    
13.             End If
    
14.             
    
15.              'bh = Mid(Trim(divt(1).Children(1).Children(i).innertext), 6) '商品编号
    
16.             'Cells(i / 2 + 4, 1) = bh '商品编号插入单元格
    
17.             'Debug.Print "编号:" + bh
    
18.             'Debug.Print "-------------------------------------------------------------------------------"
    
19.         End If
    
20.     Next

复制代码

妞叫七七

'Cells((i + 7) / 2, 1) = bh  '商品编号插入单元格

别直接用变量i,可以用变量K
K=K+1
'Cells((k + 7) / 2, 1)

787851791

妞叫七七 发表于 2013-6-20 17:04
'Cells((i + 7) / 2, 1) = bh  '商品编号插入单元格

别直接用变量i,可以用变量K

我去 我大脑短路了 哎 没想到 谢谢啦

hellsparrow

有收获