求助报表自动生成时可以分类处理

wxxdxff

表1中是所有样品的信息，表2是需要生成的报表。
生成把报表，以前做过。但是现在需要根据表1的“类型”分出不同的报表2，“测试仪表量程”不同的也要区分开。每个报表2最多有5条记录。超过5条，剩余的另存第二个表2.以此类推。也就是生成的报表2按照“类型” 和 “测试仪表量程”两个条件分类。优先“类型”区分，然后“测试仪表量程”再分。不知道讲清楚没有。
谢谢论坛的各位版主。
感谢。

wxxdxff

如果我没说清楚，还烦请大家提问。我再叙述。谢谢！

wxxdxff

有，有思路的吗？

wxxdxff

各位大师，是不是不太好做呢？

wxxdxff

顶一下吧，希望有人能帮忙给看看。谢谢

孙旭白

看是楼主的意思吗，我增加了少量数据来试验超过5个就建立新表，你多加些数据看是否有问题

wxxdxff

孙旭白 发表于 2020-1-13 17:10
看是楼主的意思吗，我增加了少量数据来试验超过5个就建立新表，你多加些数据看是否有问题

没错，我试了，就是这个意思。太厉害了。我去学习下语句。Dictionary语句不太会用。想办法理解理解。
感谢您的帮助。

孙旭白

wxxdxff 发表于 2020-1-13 21:11
没错，我试了，就是这个意思。太厉害了。我去学习下语句。Dictionary语句不太会用。想办法理解理解。
感 ...

里面y的取值可以用ROUNDUP函数来确定，我用了判断语句，其实可以化简的很简单，我给忘了这个函数了
    If UBound(brr, 2) / 5 = Int(UBound(brr, 2) / 5) Then
        y = UBound(brr, 2) / 5
    Else
        y = UBound(brr, 2) \ 5 + 1
    End If
变成 ：y=application.worksheetfunction.roundup(ubound(brr,2)/5,0)

wxxdxff

孙旭白 发表于 2020-1-14 08:18
里面y的取值可以用ROUNDUP函数来确定，我用了判断语句，其实可以化简的很简单，我给忘了这个函数了
     ...

如果用dictionary 的数组，来判断什么时候分页。可以怎么写呢？

孙旭白

wxxdxff 发表于 2020-1-14 09:40
如果用dictionary 的数组，来判断什么时候分页。可以怎么写呢？

没必要用字典，只是一个简单的判断
推荐你学习一下彭版主的字典教学贴“挥之即来，呼之即去”