Board logo

標題: 如何把有資料的單元格括弧括起來,沒資料的就略過 [打印本頁]

作者: Qin    時間: 2012-3-3 09:17     標題: 如何把有資料的單元格括弧括起來,沒資料的就略過

請問什麼函數可將有資料的單元格括弧起來,沒資料的就略過


附檔[attach]9819[/attach]
作者: oobird    時間: 2012-3-3 09:48

用定義名稱
[attach]9820[/attach]
作者: Qin    時間: 2012-3-3 10:50

回復 2# oobird

前輩,我使用了定義名稱后,為何品牌,地點,等級等的資料,並沒有括弧起來?
作者: oobird    時間: 2012-3-3 11:00

回復 3# Qin

看不到你出錯的情形
    請自行與2樓附件對照,看看哪裡弄錯了
作者: Hsieh    時間: 2012-3-3 11:19

本帖最後由 Hsieh 於 2012-3-3 11:20 編輯

回復 3# Qin

F2為作用中儲存格,加入以下名稱
bb=TEXT(Sheet1!$B2,";;(@)")
cc=TEXT(Sheet1!$C2,";;(@)")
dd=TEXT(Sheet1!$D2,";;(@)")
ee=TEXT(Sheet1!$E2,";;(@)")
hh=TEXT(Sheet1!$H2,";;(@)")
F2輸入公式
=A2&bb&cc&dd&ee&hh
    [attach]9821[/attach]
作者: Qin    時間: 2012-3-3 11:45

回復 5# Hsieh


   謝謝版主, 問題解決了..
作者: Qin    時間: 2012-3-6 21:52

回復 5# Hsieh

前輩, 我又碰到問題, 為什麼"數字'不能夠顯示出來

請看附檔[attach]9886[/attach]
作者: Hsieh    時間: 2012-3-6 22:21

回復 7# Qin

[attach]9887[/attach]
作者: jillhuang    時間: 2012-3-9 15:34

本帖最後由 jillhuang 於 2012-3-9 15:36 編輯

回復 8# Hsieh

G2=CONCATENATE(A2,IF(COUNTA(B2)=1,"("&B2&")",""),IF(COUNTA(C2)=1,"("&C2&")",""),IF(COUNTA(D2)=1,"("&D2&")",""),IF(COUNTA(H2)=1,"("&H2&")",""))
再往下複製公式也可!!

這樣就不需要G欄了!!
作者: mark15jill    時間: 2012-3-12 15:54

本帖最後由 mark15jill 於 2012-3-12 17:22 編輯

用取代的方法..

.

Sub Macro1()
For yy = 2 To 65535
    If Range("a" & yy).Value <> "" Then
        Range("o" & yy).Value = Range("a" & yy).Value & "(" & Range("b" & yy).Value & ")" & "(" & Range("c" & yy).Value & ")" & "(" & Range("d" & yy).Value & ")" & "(" & Range("e" & yy).Value & ")" & "(" & Range("h" & yy).Value & ")"
        Range("p" & yy).Value = Range("o" & yy).Value  ' 這行開始 都是比對用的
        Columns("p:p").Select   
        Selection.Replace What:="()", Replacement:="", LookAt:=xlPart, _                         '若儲存格內有  () 字串 ,則以"" 取代之
            SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
            ReplaceFormat:=False

    End If
Next yy
End Sub



PS 簡單來說 就是 你全部設定後,再用取代把 () 取代掉
     因照樓主的意思,是無資料的時候為()  有資料則 (資料)
     故想這種方法比較好思考,也不用去想說哪筆資料是不存在的...




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