如何判断第二行 合并单元格是由原来是几个单元格合并的？

yiyaozjk

想得到：
A1由2-3列合并  
B2由4-5列合并。。。
F6由 15-26列合并
G7是由28-40列合并  

cbg2008

1. Sub test()
   
2. Dim rngTemp As Range
   
3. Dim i As Long
   
4. Dim strFind As String
   
5. strFind = "A1,B2,C3,D4,E5,F6"
   
6. On Error Resume Next
   
7. For i = 0 To UBound(Split(strFind, ","))
   
8.     Err.Clear
   
9.     Set rngTemp = Rows(3).Find(what:=Split(strFind, ",")(i), LookAt:=xlPart).MergeArea
   
10.     If Err.Number = 0 Then
    
11.         Debug.Print Split(strFind, ",")(i) & "由" & rngTemp(1).Column & "-" & rngTemp(rngTemp.Count).Column & "组成"
    
12.     End If
    
13. Next
    
14. End Sub

复制代码

yiyaozjk

cbg2008 发表于 2014-5-22 23:47

我之所以用A1工序,B2工序,C3工序,D4工序,E5工序,F6工序来描述，意思就是说，工序的名称及个数不是确定的。。。

也许是我表达错误 所以用strFind = "A1,B2,C3,D4,E5,F6"去描述数组不妥。。。工序是不确定的

   

cbg2008

yiyaozjk 发表于 2014-5-22 23:54
我之所以用A1工序,B2工序,C3工序,D4工序,E5工序,F6工序来描述，意思就是说，工序的名称及个数不是 ...

1. Sub test()
   
2.     Dim rngTemp As Range
   
3.     Dim i As Long
   
4.     Dim strFind As String
   
5.     On Error Resume Next
   
6.     i = 1
   
7.     Do
   
8.         Err.Clear
   
9.         strFind = VBA.Chr(64 + i) & i
   
10.         Set rngTemp = Rows(3).Find(what:=strFind, LookAt:=xlPart).MergeArea
    
11.         If Err.Number = 0 Then
    
12.             Debug.Print strFind & "由" & rngTemp(1).Column & "-" & rngTemp(rngTemp.Count).Column & "组成"
    
13.             i = i + 1
    
14.         Else
    
15.             Exit Do
    
16.         End If
    
17.     Loop
    
18. End Sub

复制代码

yiyaozjk

Debug.Print strFind & "由" & rngTemp(1).Column & "-" & rngTemp(rngTemp.Count).Column & "组成"
但我又提出了一个新要求  ：我们只是将查询出来的东西放到表格中去。能否放在一个数组里呀？

DIM A()
a(N,1,1)=Rng.Value
a(N,1,2)=  Rng.MergeArea.Column
a(N,1,3)= Rng.MergeArea.Column + Rng.MergeArea.Count - 1    ' Left(Rng.Value, 2)
redim preserve a(n+1)  报错了
End If