如何使用VBA制作报表

如何使用VBA制作报表

详见附件。

读取文件不需要那么复杂, 下面这个读取文件, 兼按顺序排好.
Sub Inputfiles()
Dim Filename As Variant
Filename = Application.GetOpenFilename(Title:="请选择>>> 你的TIF文件...", filefilter:="TIFF文件(*.tif),*.tif", MultiSelect:=True)
If IsArray(Filename) Then
For i = 1 To UBound(Filename)
Sheet1.Cells(i, 1) = Right(Filename(i), Len(Filename(i)) - InStrRev(Filename(i), "\"))
Next
End If
Sheet1.UsedRange.Sort Key1:=Range("A1"), Order1:=xlAscending
End Sub

注意这是多选. 至于检查部分您说的很详细. 就是不说您想怎么样做...检查出来要做什么呢?
所以, 即使我完全理解您所讲的检查过程, 我也做不了什么...不知道该让程序干什么.

给您的提问点建议, 不要在您的提问中给出自己的答案:
1. 您可能会受自己思路束缚, 您的自问自答未必是最佳方法. 不仅不利于把问题描述清楚, 还可能误导回答问题的人.
2. 您只管描述清楚什么地方存在问题, 哪个地方想怎样处理, 最后想得到什么样的结果. 这样有利于回答问题的人快速理解问题所在, 对您来说可以接收到不同的解决方案.追问没有看懂您的代码。。。。无法制作报表