標題: [發問] If...then 後面句子太長 [打印本頁]

---

作者: popomilk    時間: 2016-8-26 11:59     標題: If...then 後面句子太長

[attach]25058[/attach]請問要怎樣縮減句子呢
我要寫的意思是
如果C9有噸的時候
取消合併儲存格並且資料剖析，以"包"為基準，將儲存格分開

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

[attach]25057[/attach]

1. Sub 巨集2()
   
2. '
   
3. ' 巨集2 巨集
   
4. If Range("C9") Like "*噸*" Then Range("C9").UnMerge
   
5. 
   
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    時間: 2016-8-26 14:07

回復 1# popomilk


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

麻煩忽略此篇

---

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