Qin

帖子: 207
主題: 61
精華: 0
積分: 270
點名: 0
作業系統: Vista
軟體版本: office2003
閱讀權限: 20
性別: 女
註冊時間: 2011-3-20
最後登錄: 2023-6-25

1^# 跳轉到 » 正序看帖

打印

字體大小: tT

發表於 2012-3-3 09:17 | 只看該作者

如何把有資料的單元格括弧括起來,沒資料的就略過

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

附檔

Book_1.rar (1.92 KB)

樓主熱帖

mark15jill

　暱稱: 隨風飄蕩的羽毛
　頭銜: [御用]潛水艇

高中生 Rank: 3 Rank: 3

帖子: 852
主題: 79
精華: 0
積分: 918
點名: 0
作業系統: Windows 7 , XP
軟體版本: Office 2007, Office 2003,Office 2010,YoZo Office
閱讀權限: 50
性別: 男
來自: 宇宙
註冊時間: 2011-4-8
最後登錄: 2024-2-21

10^#

發表於 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 簡單來說就是你全部設定後，再用取代把 () 取代掉
   因照樓主的意思，是無資料的時候為()  有資料則 (資料)
   故想這種方法比較好思考，也不用去想說哪筆資料是不存在的...

TOP

jillhuang

小學生 Rank: 1

帖子: 12
主題: 2
精華: 0
積分: 15
點名: 0
作業系統: window 7
軟體版本: office 2007
閱讀權限: 10
性別: 女
來自: Taiwan
註冊時間: 2010-5-18
最後登錄: 2018-3-27

論壇贊助勳章

9^#

發表於 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欄了!!

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兔年全勤獎章

8^#

發表於 2012-3-6 22:21 | 只看該作者

回復 7# Qin

括號.rar (4.34 KB)

學海無涯_不恥下問

TOP

Qin

中學生 Rank: 2

帖子: 207
主題: 61
精華: 0
積分: 270
點名: 0
作業系統: Vista
軟體版本: office2003
閱讀權限: 20
性別: 女
註冊時間: 2011-3-20
最後登錄: 2023-6-25

7^#

發表於 2012-3-6 21:52 | 只看該作者

回復 5# Hsieh

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

請看附檔

Book_2.rar (4.18 KB)

TOP

Qin

中學生 Rank: 2

帖子: 207
主題: 61
精華: 0
積分: 270
點名: 0
作業系統: Vista
軟體版本: office2003
閱讀權限: 20
性別: 女
註冊時間: 2011-3-20
最後登錄: 2023-6-25

6^#

發表於 2012-3-3 11:45 | 只看該作者

回復 5# Hsieh

謝謝版主, 問題解決了..

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兔年全勤獎章

5^#

發表於 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

Book_1.rar (3.83 KB)

學海無涯_不恥下問

TOP

oobird