返回列表 上一主題 發帖

[發問] If...then 後面句子太長

popomilk

帖子
34 
主題
4 
精華
0 
積分
50 
點名
0  
作業系統
WIN7 
軟體版本
WIN7 
閱讀權限
20 
性別
男 
註冊時間
2016-7-11 
最後登錄
2016-12-2 

論壇贊助勳章
1# 跳轉到 » 倒序看帖
打印
tT
發表於 2016-8-26 11:59 | 只看該作者

[發問] If...then 後面句子太長

IF句子太長.rar (7.76 KB) 請問要怎樣縮減句子呢
我要寫的意思是
如果C9有噸的時候
取消合併儲存格並且資料剖析，以"包"為基準，將儲存格分開

但我怕我寫的程式碼，會變成  資料剖析跟IF沒關係
請教各位大大了

[attach]25057[/attach]
  1. Sub 巨集2()
  2. '
  3. ' 巨集2 巨集
  4. If Range("C9") Like "*噸*" Then Range("C9").UnMerge

  6. Range("C9").TextToColumns Destination:=Range("C9"), DataType:=xlDelimited, _
  7. TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=False, _
  8. Semicolon:=False, Comma:=False, Space:=False, Other:=True, OtherChar _
  9. :="包", FieldInfo:=Array(Array(1, 1), Array(2, 1)), TrailingMinusNumbers:=True
  10. End Sub
複製代碼
收藏 分享

popomilk

帖子
34 
主題
4 
精華
0 
積分
50 
點名
0  
作業系統
WIN7 
軟體版本
WIN7 
閱讀權限
20 
性別
男 
註冊時間
2016-7-11 
最後登錄
2016-12-2 

論壇贊助勳章
2#
發表於 2016-8-26 14:07 | 只看該作者
回復 1# popomilk


    對不起各位大大
我已經解決了

麻煩忽略此篇

TOP

        靜思自在 : 一個缺口的杯子，如果換一個角度看它，它仍然是圓的。
返回列表 上一主題