Excel求VBA宏程序，将m行每n行写入新的列

其实在VBA中这个就是一个循环加复制粘贴就完成了。

第一步：按Alt+F11打开VBE编辑器

第二步：单击菜单栏 插入--模块

第三步：在模块中建立一个Sub过程，代码如下：

Sub copydate()

Dim i%, y%

y = 0

For i = 1 to 100 Step 10

Sheet1.Rows(i &":" &i+9).Copy Sheets2.Cells(1,y+1)

Next i

End Sub

第四步：就按F5执行这个过程就搞定了

因为没有电脑，就只有手写蠢升袭，没有测试，应该笑团是没有问题的。

第二行代码就是创建两个变量

第三行就是给变量y赋带兄值为0

第四行代码就是创建For循环语句，每次步长为10

第五行代码就是将sheet表每10行数据复制粘贴到sheet2表中

第六行就是退出for循环语句

第七行就是退出sub过程

望采纳，谢谢！

改为：

Box1.Text = "T侧增加" &ot &"个垫圈"配手皮 &" &Chr(10) & C侧增加" &oc &"个0.3mm垫圈"薯信

或

Box1.Text = "T侧增加" &ot &"个垫圈"培差 &" &VbCrLf & C侧增加" &oc &"个0.3mm垫圈"

下面的代凯汪码你试试看：

Option Explicit

Sub YgB()

    '开始统计

    Dim arr(1 To 10000, 1 To 2), i, n, m

    n = Sheets.Count

    For i = 1 To n

        arr(i, 1) = Sheets(i).Name

        m = Application.WorksheetFunction.CountIf(Sheets(i).Range("B:B"), "*")

        arr(i, 2) = m

    Next i

 森耐   盯春仔'新建工作簿输出结果

    Workbooks.Add

    ActiveSheet.Cells(1, 1).Resize(n, 2) = arr

End Sub

---