求高手指点下，这数据条怎么弄好？

释然过客 · 发表于 2015-1-15 11:17

数据条.zip (23.71 KB, 下载次数: 4)

表1中，每个学员都要插入一个标题行。每个学员考试的科目数量也不等。数量很多，有没有什么技巧？
要的是表2中的那种效果，求指教。

释然过客 · 发表于 2015-1-15 11:35

要插入标题行

TomingTang · 发表于 2015-1-15 11:47

Sub dd()
Dim rng As Range, drow%, Arr
With Worksheets("表1")
      Set rng = .Range("a1:f1")
      drow = .Range("a65536").End(3).Row
      Arr = .Range("a2:f" & drow + 3)
      For i = drow To 2 Step -1
         If Arr(i, 1) > 0 Then
            .Cells(i + 1, 1).EntireRow.Insert
            rng.Copy .Cells(i + 1, 1)
         End If
      Next
End With
End Sub

TomingTang · 发表于 2015-1-15 11:47

请查看附件

数据条.zip (34.67 KB, 下载次数: 2)

释然过客 · 发表于 2015-1-15 11:51

TomingTang 发表于 2015-1-15 11:47
请查看附件

请问那个按钮1是什么作用

TomingTang · 发表于 2015-1-15 14:13

释然过客发表于 2015-1-15 11:51
请问那个按钮1是什么作用

直接运行程序啊，连接了程序的。

释然过客 · 发表于 2015-1-15 16:10

TomingTang 发表于 2015-1-15 14:13
直接运行程序啊，连接了程序的。

具体步骤怎么操作啊，菜鸟看不懂。。

		自动登录	找回密码
密码			免费注册

[经验交流] 求高手指点下，这数据条怎么弄好？

浏览过的版块