Board logo

標題: [發問] 儲存格有跨欄置中，請問如何統計或查看該欄中各列的資料內容？ [打印本頁]
作者: queening    時間: 2013-10-9 16:06     標題: 儲存格有跨欄置中，請問如何統計或查看該欄中各列的資料內容？

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

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

請知道的各位，幫我解答一下，謝謝！
作者: luhpro    時間: 2013-10-13 20:55

回復 1# queening
我找不到使用一般方式的解法,
不過若改使用 Excel VBA 倒是可以很容易的達到你的需求 :
[attach]16322[/attach]
  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
複製代碼




歡迎光臨 麻辣家族討論版版 (http://forum.twbts.com/)