返回列表下一主題上一主題發帖

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

a703130

中學生 Rank: 2

帖子: 97
主題: 32
精華: 0
積分: 167
點名: 0
作業系統: WinXP
軟體版本: Office2003
閱讀權限: 20
性別: 男
註冊時間: 2011-3-22
最後登錄: 2017-8-16

1^# 跳轉到 » 正序看帖

打印

字體大小: tT

發表於 2013-1-31 20:16 | 只看該作者

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

請問各位前輩

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

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

b sheet 的每一列上皆有值

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

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

煩請不吝賜教,謝謝

樓主熱帖

a703130

中學生 Rank: 2

帖子: 97
主題: 32
精華: 0
積分: 167
點名: 0
作業系統: WinXP
軟體版本: Office2003
閱讀權限: 20
性別: 男
註冊時間: 2011-3-22
最後登錄: 2017-8-16

5^#

發表於 2013-2-20 16:53 | 只看該作者

謝謝各位大大幫忙

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

TOP

Hsieh

超級版主 Rank: 8 Rank: 8

帖子: 4901
主題: 44
精華: 24
積分: 4916
點名: 247
作業系統: Windows 7
軟體版本: Office 20xx
閱讀權限: 150
性別: 男
來自: 台北
註冊時間: 2010-4-30
最後登錄: 2024-11-14

2023年全勤獎章 2022虎年全勤獎章 2021牛年全勤獎章 2020鼠年全勤獎章 2019 豬年全勤獎章 2018 狗年全勤獎章 2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章論壇貢獻勳章熱心公益勳章 2011兔年全勤獎章

4^#

發表於 2013-2-4 09:27 | 只看該作者

回復 2# a703130

Sub ex()
Set d = CreateObject("Scripting.Dictionary")
With Sheets("b")
For Each a In .Range(.[E3], .[E3].End(xlDown))
d(a & "") = "(" & Application.Sum(a.Resize(, 5)) & ")" '加總
Next
End With
With Sheets("a")
.Columns("D").Replace "(*)", "" '還原
For Each ky In d.keys
.Columns("D").Replace ky, ky & d(ky) '取代
Next
End With
End Sub

複製代碼

學海無涯_不恥下問

TOP

GBKEE

超級版主 Rank: 8 Rank: 8

帖子: 5923
主題: 13
精華: 1
積分: 5986
點名: 0
作業系統: win10
軟體版本: Office 2010
閱讀權限: 150
性別: 男
來自: 台灣基隆
註冊時間: 2010-5-1
最後登錄: 2022-1-23

2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章論壇貢獻勳章熱烈參與勳章 2011兔年全勤獎章

3^#

發表於 2013-2-2 16:39 | 只看該作者

回復 2# a703130
是這樣嗎?

Option Explicit
Sub Ex()
Dim xi As Integer, W As String, Rng As Range
With Sheets("b")
xi = 3
Do While .Cells(xi, 5) <> ""
If .Cells(xi, 5) Like "Test*" Then
W = "(" & Application.Sum(.Cells(xi, 6).Resize(, 4)) & ")" '後面4欄的加總
Set Rng = Sheets("a").Range("D2")
Do
Rng.Replace .Cells(xi, 5), .Cells(xi, 5) & W 'Replace 方法
Set Rng = Rng.Offset(1)
Loop While Rng<>""
End If
xi = xi + 1
Loop
End With
End Sub

複製代碼

TOP

a703130

中學生 Rank: 2

帖子: 97
主題: 32
精華: 0
積分: 167
點名: 0
作業系統: WinXP
軟體版本: Office2003
閱讀權限: 20
性別: 男
註冊時間: 2011-3-22
最後登錄: 2017-8-16

2^#

發表於 2013-2-1 09:54 | 只看該作者

Question.rar (1.62 KB)

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

如附件

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

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

TOP

靜思自在 : 【是否發揮了良能？】人間壽命因為短暫，才更顯得珍貴。難得來一趟人間，應問是否為人間發揮了自己的良能，而不要一味求長壽。

返回列表下一主題上一主題