楼上的?你是哪位?楼主要有问题,请联系我
我是farfamed,要确认的问题是:
1、A列数据形式就是单个字母?B列数据形式就是单个数字?C列呢?D列呢?如果不是,请说一下数据形式,还有它们组合后,每个组合的各个数据之间有没有间隔符?比如a1,是不是紧密连接的?
2、有N列数据,每个组合就是包含N个数据吗?
3、组合后的数据放在哪里?
用VBA写了一个,你先看看:
Rem 工具-宏-VB编辑器,粘贴如下代码,返回工作表,切换到其他Sheet,再返回到当前Sheet,即开始执行,组合后的数据从第7列开始存储,每列最多存储6万个,数据量大的话,执行过程中,工作表的状态栏是一直跳动着的
Private Sub Worksheet_Activate()
Dim n As Long
a = Range("a1").End(xlDown).Row: If a > 60000 Then a = 1
b = Range("b1").End(xlDown).Row: If b > 60000 Then b = 1
c = Range("c1").End(xlDown).Row: If c > 60000 Then c = 1
d = Range("d1").End(xlDown).Row: If d > 60000 Then d = 1
e = Range("e1").End(xlDown).Row: If e > 60000 Then e = 1
f = Range("f1").End(xlDown).Row: If f > 60000 Then f = 1
n = 0: m = 0
For i = 1 To a
For j = 1 To b
For k = 1 To c
For x = 1 To d
For y = 1 To e
For z = 1 To f
DoEvents
n = n + 1
Cells(n, 7 + m) = Cells(i, 1) & Cells(j, 2) & Cells(k, 3) & Cells(x, 4) & Cells(y, 5) & Cells(z, 6)
If n > 60000 Then n = 0: m = m + 1
Next z
Next y
Next x
Next k
Next j
Next i
MsgBox n
End Sub
温馨提示:答案为网友推荐,仅供参考