发布网友 发布时间:2022-05-01 22:58
共4个回答
热心网友 时间:2022-06-24 16:03
Sub test() Dim InCell As String '输入的单元格 Dim InElementNumber As Integer '需要重新定义每行的个数 Dim Aims_Arr() As String '存放分组后数据的数组 Dim RowNumber As Integer '原始数据个数 Dim GroupNumber As Integer '原始数据根据重新定义的个数能分几组 Dim InColumn As String '输入单元格所在的列 InCell = InputBox("请输入数据所在列的某个单元格,样式如【A1】") InElementNumber = InputBox("请输入每行按多少个数字排列") RowNumber = Range(InCell).CurrentRegion.Rows.Count InColumn = Left(InCell, 1) GroupNumber = Application.Ceiling(RowNumber / InElementNumber, 1) ReDim Aims_Arr(1 To GroupNumber) b = 1'a是记数组中每个元素拼接多少值'b是记录下一次循环从哪个地方开始 For t = 1 To GroupNumber Aims_Arr(t) = "" a = 1 For i = b To RowNumber If a <> InElementNumber + 1 Then Aims_Arr(t) = Aims_Arr(t) & Range(InColumn & i).Value a = a + 1 b = b + 1 Else Exit For End If Next Next For t = 1 To GroupNumber Range("B" & t) = Aims_Arr(t) Next End Sub追问不对哦,这位大侠,我看到你所列出的一模一样的vba是解决另外一个问题的,和我这个不搭嘎哦。。。不管怎样 先谢谢你的热心了,我继续找其他朋友帮忙吧。。。
热心网友 时间:2022-06-24 16:03
设原始数据x个(100以内),分成m(小于10)组,任一原始数要在n组中重复出现。
热心网友 时间:2022-06-24 16:04
m InElementNumber As Integer '需要重新定义每行的个数 Dim Aims_Arr() As String '存放分组后数据的数组 Dim RowNumber As Integer '原始数据个数 Dim GroupNumber As Integ热心网友 时间:2022-06-24 16:04
你把数据表发给我,私信联系。