Board logo

標題: [發問] 如果在以合併的儲存格中搜尋特定字串? [打印本頁]
作者: a703130    時間: 2013-1-31 20:16     標題: 如果在以合併的儲存格中搜尋特定字串?

請問各位前輩

小弟目前有做一個文件,遇到點麻煩

如題,我在一個工作表中有a,b sheet

b sheet 的每一列上皆有值

而我要從 b sheet 的值跟 a sheet中比較是否有一樣的,如果有便增加我想要的東西

但是 a sheet 中 我要尋找的地方 column 4~10 是合併儲存格
請問我要如何尋找??

煩請不吝賜教,謝謝
作者: a703130    時間: 2013-2-1 09:54

[attach]14125[/attach]

抱歉沒有詳細說明我的問題

如附件

我需要從 "Sheets b" 的cells(3,5) 往下找,遇到每一個Test 便會搜尋"Sheets a" column 4 是否有相同關鍵字
如果有則將"Sheets b" Item 6~9 相加放在關鍵字後面,問題在"Sheets a" 上column 4是合併儲存格所以我不知道如何搜尋

例如
a Sheets  cells(2,4)結果                  
Test_1(4),Test_2(8)
Test_2(8)
Test_1(4)
Test_3

不知道前輩是否能理解我的問題..
作者: GBKEE    時間: 2013-2-2 16:39

回復 2# a703130
是這樣嗎?
  1. Option Explicit
  2. Sub Ex()
  3.     Dim xi As Integer, W As String, Rng As Range
  4.     With Sheets("b")
  5.         xi = 3
  6.         Do While .Cells(xi, 5) <> ""
  7.            If .Cells(xi, 5) Like "Test*" Then
  8.                 W = "(" & Application.Sum(.Cells(xi, 6).Resize(, 4)) & ")"   '後面4欄的加總
  9.                 Set Rng = Sheets("a").Range("D2")
  10.                 Do
  11.                    Rng.Replace .Cells(xi, 5), .Cells(xi, 5) & W     'Replace 方法
  12.                    Set Rng = Rng.Offset(1)
  13.                 Loop While Rng<>""
  14.             End If
  15.             xi = xi + 1
  16.         Loop
  17.     End With
  18. End Sub
複製代碼
作者: Hsieh    時間: 2013-2-4 09:27

回復 2# a703130
  1. Sub ex()
  2. Set d = CreateObject("Scripting.Dictionary")
  3. With Sheets("b")
  4.    For Each a In .Range(.[E3], .[E3].End(xlDown))
  5.       d(a & "") = "(" & Application.Sum(a.Resize(, 5)) & ")" '加總
  6.    Next
  7. End With
  8. With Sheets("a")
  9. .Columns("D").Replace "(*)", "" '還原
  10.    For Each ky In d.keys
  11.       .Columns("D").Replace ky, ky & d(ky)   '取代
  12.    Next
  13. End With
  14. End Sub
複製代碼
作者: a703130    時間: 2013-2-20 16:53

謝謝各位大大幫忙

Range 跟 Find 真令人難以理解阿~"~



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