木材的用途和功能图片:EXCEL宏问题

来源：百度文库编辑：中科新闻网时间：2024/04/29 10:13:25

Sub 宏1()
'
Dim a(100)
'Dim i
ActiveCell.SpecialCells(xlLastCell).Select
t = ActiveCell.Address
r1 = Mid(Trim(t), 4, 10)
r2 = Asc(Mid(Trim(t), 2, 1)) - Asc("A") + 1
'r1=3
'r2=26

For j = 1 To r2
Range(Chr(j - 1 + Asc("A")) + "1").Select
a(j) = ActiveCell.Value
Next j

For i = r1 To 3 Step -1
Range("a" + Trim(CStr(i))).Select
Selection.EntireRow.Insert
For j = Asc("a") To Asc("a") + r2
Range(Chr(j) + Trim(CStr(i))).Select
ActiveCell.FormulaR1C1 = a(j - Asc("a") + 1)
Next j
Selection.EntireRow.Insert
Next i

End Sub

以上宏是发工资条时用的~~
但经发现只好像只能用到Y列！
有谁可以改进一下？？
谁可以分析一下？？
如何改进到多几列都OK？？

你说你想干什么替你编一段不就可以了？最不喜欢分析别人的代码了。特别连注释都没有的代码。
可以找我：wzz3@netease.com

EXCEL宏问题 excel加载宏问题 EXCEL宏LEFT函数问题~~ excel 的宏设置问题？ word,excel中的宏问题 excel问题 EXCEL问题 Excel问题 excel问题 excel 问题~!

木材的用途和功能图片:EXCEL宏 问题

木材的用途和功能图片:EXCEL宏问题