返回列表 上一主題 發帖

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

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

高中生Rank: 3Rank: 3

帖子
852 
主題
79 
精華
0 
積分
918 
點名
0  
作業系統
Windows 7 , XP 
軟體版本
Office 2007, Office 2003,Office 2010,YoZo Office 
閱讀權限
50 
性別
男 
來自
宇宙 
註冊時間
2011-4-8 
最後登錄
2024-2-21 
1# 跳轉到 »
發表於 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

        靜思自在 : 願要大、志要堅、氣要柔、心要細。
返回列表 上一主題