请修改Chip_Kenny老师的作品（已有vba）

kandhong88

各位老师：
    这是论坛Chip_Kenny老师的作品。
    原理如下：用Q6控制数据区C2:N12平分个数，然后求平分区域每行数据的个数。
    举例说明：Q6=3时，数据区C2:N12平均分成3份，每行含有的数据分别在C14:N24显示。
    此VBA有一个不足之处：
    当Q6=6时，显示的数据为6列；
    当Q6=3时，显示的数据应为3列，但还是6列；
    请老师修改此VBA。
     
      批量求每行出现数字的个数.rar (11.35 KB, 下载次数: 5)

2018-6-24 19:54 上传

点击文件名下载附件

不知道为什么

感觉能理解题意就很不容易了？你的意思是 按列平分？如果是 5 /7 /9，这些数字，平分不了，如何处理？

kandhong88

<不知道为什么>老师:
         如果是12列数据，只考虑能被12整除的数，即：1，2，3，4，12，其它不考虑。

kandhong88

<不知道为什么>老师:
        这个VBA是正确的，不足的地方在于：当Q6=6时，显示的数据为6列。然后操作当Q6=3时，显示的数据应为3列，但还有Q6=6时的数据。
        我想解决的是：当Q6=6时，显示的数据为6列。
                              当Q6=3时，显示的数据应为3列。
        老蚰，您能理解我的意思吗？

jiminyanyan

kandhong88 发表于 2018-6-24 20:28
老师:
        这个VBA是正确的，不足的地方在于：当Q6=6时，显示的数据为6列。然后操作当Q6=3时，显示的 ...

直接找Chip_Kenny老师，工作量大的话出点辛苦费。。。

不知道为什么

kandhong88 发表于 2018-6-24 20:28
老师:
        这个VBA是正确的，不足的地方在于：当Q6=6时，显示的数据为6列。然后操作当Q6=3时，显示的 ...

好吧，如图，看看这是你的效果？
另外：以后可以一次性的把需求说明白，猜别人的心思我不习惯，特别是男人的！哈哈

kandhong88

不知道为什么 发表于 2018-6-24 21:25
好吧，如图，看看这是你的效果？
另外：以后可以一次性的把需求说明白，猜别人的心思我不习惯，特别是男 ...

<不知道为什么>老师:
        正是这个效果，正解！
        能提供VBA代码吗？

不知道为什么

kandhong88 发表于 2018-6-24 21:45
老师:
        正是这个效果，正解！
        能提供VBA代码吗？

你附件里没有老师的代码啊，我还想学习下，发我看看呢

kandhong88

不知道为什么 发表于 2018-6-24 21:25
好吧，如图，看看这是你的效果？
另外：以后可以一次性的把需求说明白，猜别人的心思我不习惯，特别是男 ...

<不知道为什么>老师:
        这是原代码，你看一下！
       Sub zz()
Dim ar, b(), n%, m%
ar = [c2:n12].Value
m = [q6].Value
ReDim b(1 To UBound(ar), 1 To m)
n = UBound(ar, 2) / m
For i = 1 To UBound(ar)
    For j = 0 To m - 1
        For jj = 1 To n
            If Len(ar(i, j * n + jj)) Then b(i, j + 1) = b(i, j + 1) + 1
        Next
    Next
Next
[c14].Resize(i - 1, m) = b
End Sub

不知道为什么

kandhong88 发表于 2018-6-24 21:53
老师:
        这是原代码，你看一下！
       Sub zz()

到底是老师的作品啊，比我的简练多了。学习了