根据sheet1指定行数往sheet2中写数据

骑着骆驼写程序

于 2013-01-25 10:00:46 发布

阅读量1k

点赞数

CC 4.0 BY-SA版权

分类专栏：数据库相关问题

本文链接：https://blog.youkuaiyun.com/cw370008359/article/details/8540724

数据库相关问题专栏收录该内容

21 篇文章

订阅专栏

本文介绍了一个使用VBA宏批量将数据导入到Excel特定工作表中的方法，具体包括定义参数、激活工作表、循环处理数据并填充单元格。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

Dim i As Integer

Sub addNewInfo(ByVal stext As String, ByVal icount As String)
   Worksheets("Sheet2").Activate
   Dim rowcount As Integer
   Dim j, m As Integer
   j = Val(icount)
   rowcount = ActiveSheet.UsedRange.Rows.Count
   For m = 0 To j
       ActiveSheet.Cells(rowcount, 1).Value = stext
       rowcount = rowcount + 1
   Next

End Sub

Private Sub CommandButton1_Click()
    Worksheets("Sheet1").Activate
    Dim rowcount As Integer

    Dim stext, icount As String
    icount = 0
    rowcount = ActiveSheet.UsedRange.Rows.Count

    For i = 2 To rowcount
      Worksheets("Sheet1").Activate
      stext = ActiveSheet.Cells(i, 1).Value
      icount = ActiveSheet.Cells(i, 2).Value
      Call addNewInfo(stext, icount)
    Next
End Sub