[發問] 儲存格有跨欄置中，請問如何統計或查看該欄中各列的資料內容？

queening

大家好，請問一下，
我用EXCEL做了一個行程表，來安排每個月的行程，
但有些資料是會跨月份，所以用跨欄置中(如附件)

例如：我想查看我10205月的行程(儲存格列的資料)有哪些時，
無法使用篩選，因為篩選只能篩選跨欄資料是從10205開始的內容，
若從10204開始跨欄置中的資料,就沒辦法，
所以想請問是否有函數或其他操作功能，
可以讓我可以看到我10205總共有哪些行程呢?

請知道的各位，幫我解答一下，謝謝！

luhpro

回復 1# queening
我找不到使用一般方式的解法,
不過若改使用 Excel VBA 倒是可以很容易的達到你的需求 :
ChkData-a.zip (10.75 KB)

下載次數: 2

2013-10-13 20:54

1. Private Sub cbCheck_Click()
   
2.   Dim icol%, icols%
   
3.   Dim sStr$
   
4.   Dim lTemp&
   
5.   Dim rTar As Range
   
6.   Dim vTemp
   
7.   
   
8.   icol = 0
   
9.   Do
   
10.     sStr = InputBox("請輸入月份 :", "查詢行程", 10210)
    
11.     If sStr <> "" Then
    
12.       For lTemp = 1 To 12
    
13.         If sStr = CStr(Cells(1, lTemp)) Then
    
14.           icol = lTemp
    
15.           Exit For
    
16.         End If
    
17.       Next lTemp
    
18.     End If
    
19.     If icol = 0 Then
    
20.       vTemp = MsgBox("找不到輸入的月份資料 或 輸入的月份應為 10201 的形式, 是否重新輸入?", vbOKCancel + vbDefaultButton1)
    
21.       If vTemp = vbCancel Then Exit Sub
    
22.     End If
    
23.   Loop Until icol > 0
    
24.   
    
25.   sStr = ""
    
26.   lTemp = 2
    
27.   vTemp = 0
    
28.   Do
    
29.     If icol = 1 Or Cells(lTemp, icol).MergeArea.Count = 1 Then
    
30.       Set rTar = Cells(lTemp, icol)
    
31.     Else
    
32.       Set rTar = Cells(lTemp, Cells(lTemp, icol + 1).End(xlToLeft).Column)
    
33.     End If
    
34.     If rTar <> "" Then
    
35.       If sStr = "" Then
    
36.         sStr = sStr + rTar
    
37.       Else
    
38.         sStr = sStr & Chr(10) & Chr(10) & rTar
    
39.       End If
    
40.     End If
    
41.     lTemp = lTemp + 1
    
42.     icols = Cells(lTemp, Columns.Count).End(xlToLeft).Column
    
43.     If icols = 1 And Cells(lTemp, 1) = "" Then vTemp = vTemp + 1
    
44.   Loop Until vTemp > 10
    
45.   If sStr = "" Then
    
46.     MsgBox (Cells(1, icol) & "月 沒有查到任何行程.")
    
47.   Else
    
48.     MsgBox ("查尋到 " & Cells(1, icol) & " 月 的行程如下 :" & Chr(10) & Chr(10) & sStr)
    
49.   End If
    
50. End Sub

複製代碼