VBA

xing_chen

原c列为收入D列为支，怎么将C列的偶行单元格移动到D列，原D列变为E列，其中的偶行单元格移动到F列

YZC51

上传模拟附件，供调试

YZC51

Public Sub cru()
    For i = 1 To 23   '设置循环变量的初值、终值。
        If (Cells(i, 3).Row Mod 2) = 0 Then Cells(i, 3).Insert Shift:=xlToRight
    Next i                '转到下一次循环。
End Sub

xing_chen

YZC51 发表于 2020-1-12 13:53
Public Sub cru()
    For i = 1 To 23   '设置循环变量的初值、终值。
        If (Cells(i, 3).Row Mod ...

谢谢！但还有1个问题对原D列的数据怎么操作呀？

xing_chen

谢谢！我是VBA新手同时也是次网站新人。请诸位不吝赐教，万分感谢

YZC51

xing_chen 发表于 2020-1-12 18:15
谢谢！我是VBA新手同时也是次网站新人。请诸位不吝赐教，万分感谢

欢迎新朋友！还是上传附件吧！

xing_chen

请各位高手抽时间看下,我在编辑VBA代码时遇到棘手问题,(1)表格中有2个一样的标题行,间隔距离不固定,我想将第一个标题行(我称为第1部分)的有专项发票开具的"商品服务"列的餐饮服务,主明是"专票",下一标题行(我称为第二部分)的有普通发票开具的"商品服务"列的餐饮服务,注明是"普票".(2)另外就是怎么删除列,和合计.谢谢!因为我是新手用录制宏办法尝试了,但因为每月开票数量不一致,有数据的最后一行不固定位置,所以往往这月可以了,下月就出错.请高手帮助,谢谢

YZC51

xing_chen 发表于 2020-1-17 13:56
请各位高手抽时间看下,我在编辑VBA代码时遇到棘手问题,(1)表格中有2个一样的标题行,间隔距离不固定,我想将 ...

你这附件与标题不符啊

xing_chen

谢谢您!YZC51

xing_chen

YZC51 发表于 2020-1-12 19:49
欢迎新朋友！还是上传附件吧！

谢谢您!