|
[广告] Excel易用宝 - 提升Excel的操作效率 · Excel / WPS表格插件 ★ 免费下载 ★ ★ 使用帮助★
本帖最后由 lwa 于 2015-1-7 13:23 编辑
各位大哥:
小弟业务学习需要,对发下来的题库全是横列排板题库进行重新排版,就是把附件中用VBA能不能改成横向坚列的样子。以前有位老师教过我用下面的VBA格式自动转换,但我有样学样做出来的VBA只能自动转换前五题,不知何解,不知哪位大哥可以帮小弟一把,把下面的VBA改一下,让我附件中的表格自动重新排版。先谢了~[url=]2015年个贷业务岗位考试复习题纲 ...[/url]
Sub Macro1()
'snood 20090609
Dim a As Range
For Each a In Range("E5:j600")
If Len(a.Text) = 0 Then a.ClearContents
Next
'
For J = 9 To 6 Step -1
r = Application.WorksheetFunction.CountA(Range("C" & J - 1 & ":J" & J - 1))
r = r + 1
For i = r To 1 Step -1
Rows(J).Insert Shift:=xlDown
Cells(J, 2) = Cells(J - 1, 2 + i)
If i <> r Then Cells(J, 1) = Cells(4, 2 + i)
Next i
Next J
End Sub
|
|