|
请测试!
你编的不错啦,遍历文件、自定义函数、数组循环写入都有了
- If i = 1 Then Cells(n, i) = n - 3
- If i = 2 Then
- Cells(n, i + 1) = GetValue(p, f, s, a) & ":" & f
- Cells(n, i + 1).Hyperlinks.Add Anchor:=Cells(n, i + 1), Address:=p & "" & f
- Cells(n, i + 1).Font.Underline = xlUnderlineStyleNone
- Cells(n, i + 1).Font.ColorIndex = xlAutomatic
- End If
复制代码 |
|