excel求一个宏，急用，在线等

将这个宏另存知为加载宏XXX.xla，将XXX.xla文件放到以道下目录：
C:\Documents and Settings\用户名\Application Data\Microsoft\AddIns

打开任意一个EXCEL文件，工具回==>加载宏==>勾选XXX==>确定。

希望能帮到答您。

Public Sub fd()
For x = 1 To 20
For y = 1 To 100

If Len(Cells(y, x)) > 7 And Left(Cells(y, x), 7) = "http://" Then
Cells(y, x).Font.ColorIndex = 41
End If

Next y
Next x
End Sub

运行度这个宏问,x是列答,y是行,范围可自行回调整答
又一个不好好读书的，拒答

1、把里面需要把里面打印时间和流水号这两个开头的行删除。这个看懂了，没问题
2、每列的内容都与第一行的标题对齐（列），没看懂
发过来看看