[已解决]用VBA宏每一栏前面跟后面加入相当的值

sujiqun · 发表于 2014-12-19 11:29

1、记录多，截止一小部份
2、做出来效果，如附件中的效果一样

最佳答案

月排行榜 / 总排行榜

爱疯

2014-12-19 19:02

12月下发养老账号密码3.rar (18.96 KB, 下载次数: 5)

爱疯 · 发表于 2014-12-19 12:38

Sub test()
Dim A, B, C, i, j, k, s
Application.ScreenUpdating = False
Sheets(1).Activate
A = Range("a1").CurrentRegion
B = Range("aa1:ae3")
ReDim C(1 To UBound(A) * UBound(B), 1 To UBound(A, 2))
For i = 1 To UBound(A)
      For j = 1 To UBound(B)
         s = s + 1
         For k = 1 To UBound(B, 2)
            C(s, k) = IIf(j = 2, A(i, k), B(j, k))
         Next k
      Next j
Next i
Sheets(2).Activate
Cells.Clear
Range("a1").Resize(s, UBound(C, 2)) = C
'设置格式
For i = UBound(B) To UBound(C) Step UBound(B)
      Cells(i, 1).Resize(1, UBound(A, 2)).Merge
      Cells(i, 1).RowHeight = 40
Next i
Range("a1").CurrentRegion.EntireColumn.AutoFit
Range("C:C").ColumnWidth = 56
Range("a1").CurrentRegion.Borders.LineStyle = 1
Range("a1").Borders.LineStyle = 1
End Sub

12月下发养老账号密码2.rar (18.86 KB, 下载次数: 5)

dsmch · 发表于 2014-12-19 12:54

Sub Macro1()
Application.ScreenUpdating = False
With Sheet1
For i = 2 To .Range("a65536").End(xlUp).Row
Cells((i - 1) * 3 + 1, 1).RowHeight = Rows(1).RowHeight
Cells((i - 1) * 3 + 2, 1).RowHeight = Rows(2).RowHeight
Cells((i - 1) * 3 + 3, 1).RowHeight = Rows(3).RowHeight
.Cells(i, 1).Resize(1, 5).Copy [a2]
[a1:e3].Copy Cells((i - 1) * 3 + 1, 1)
Next
.[a1].Resize(1, 5).Copy [a2]
End With
Application.ScreenUpdating = True
End Sub

复制代码

dsmch · 发表于 2014-12-19 12:55

………………

sujiqun · 发表于 2014-12-19 17:31

爱疯发表于 2014-12-19 12:38
Sub test()
Dim A, B, C, i, j, k, s
Application.ScreenUpdating = False

初始账号那栏能不能设置成文本格式??

爱疯 · 发表于 2014-12-19 17:40

可以，现在手机，晚上改下

爱疯 · 发表于 2014-12-19 19:02

12月下发养老账号密码3.rar (18.96 KB, 下载次数: 5)

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

[已解决]用VBA宏 每一栏前面跟后面加入相当的值

[已解决]用VBA宏每一栏前面跟后面加入相当的值