[發問] 如果在以合併的儲存格中搜尋特定字串?

a703130

請問各位前輩

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

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

b sheet 的每一列上皆有值

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

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

煩請不吝賜教,謝謝

a703130

謝謝各位大大幫忙

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

Hsieh

回復 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

複製代碼

GBKEE

回復 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

複製代碼

a703130

Question.rar (1.62 KB)

問題
下載次數: 8

2013-2-1 09:47

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

如附件

我需要從 "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

不知道前輩是否能理解我的問題..