请老师增强VBA功能

xjl565135022

没有数据测试，也不知道符不符合要求，你自己试下看看
Sub test()
For i = 1 To 20
    Sheets("总表").Activate
    x = i + 10 + a
    y = i + 10 + a + 1
    arr = Sheets("总表").Range(Cells(4, i + 10 + a), Cells(1004, i + 10 + a + 1))
    a = a + 119
    b = b + 1
    If b < 10 Then
        c = "0" & b
    Else
        c = CStr(b)
    End If
    Sheets(c).Activate
    Sheets(c).Range("K5").Resize(UBound(arr), UBound(arr, 2)) = arr
    Erase arr
Next
End Sub

hongandk

xjl565135022 发表于 2019-5-27 19:39
没有数据测试，也不知道符不符合要求，你自己试下看看
Sub test()
For i = 1 To 20

xjl565135022老师：
      测试了，只有01表填充数据了，其它表没有填充数据。

xjl565135022

你的总表里面放了4000行数据进去了没有？

xjl565135022

你的总表里面放了4000列数据没有？你不是说有4000列数据吗

xjl565135022

..............................

hongandk

xjl565135022 发表于 2019-5-27 20:08
..............................

xjl565135022老师:
        您的VBA正是我需要的，太完美了。
        还有一个问题请教：
        1.此表中数据为4800列。
        2.能否在“总表 ”中加入“每份列数”和“分表个数”功能。
        例如：“每份列数”中填入192；“分表个数”中填入25，那么自动将
“总表”4800列数据，平均分成192份，分别填充到分表01-25中。
     　谢谢老师！       数据转移问题.rar (453.25 KB, 下载次数: 0)

2019-5-28 08:55 上传

点击文件名下载附件

      

xjl565135022

你的膝盖我就收下了^_^

hongandk

xjl565135022 发表于 2019-5-28 11:56
你的膝盖我就收下了^_^

xjl565135022老师:
     真是太感谢了，大神！

liubiao6688

看下是不是你想要的

hongandk

liubiao6688 发表于 2019-5-29 22:46
看下是不是你想要的

liubiao6688老师：
      太感谢了，VBA不但完美之至，还添加了清除功能。      还有一个问题请教：此VBA只能实现两列数据添加到分表中，想要实现5列或8列数据分别填充到8个分表或5个分表，如何实现呢？