- 帖子
- 5
- 主題
- 0
- 精華
- 0
- 積分
- 52
- 點名
- 0
- 作業系統
- windows 7
- 軟體版本
- office 2007
- 閱讀權限
- 20
- 性別
- 男
- 來自
- 台北
- 註冊時間
- 2015-11-14
- 最後登錄
- 2022-11-30
|
感謝樓上~我剛好有與發文者類似需求
所以就用同樣寫法再更改，只是欄位需求變大
Sub fourFATNOcombine()
' fourFATNOcombine 巨集
'
Dim Out As Variant
For n = 3 To 2000
If Cells(n, 2) <> "" Then
Out = Array(Cells(n, 146), Cells(n, 245))
***上面這一段我要從146欄吃資料到245欄，土法煉鋼似乎無法解
ub = UBound(Out)
For i = 0 To ub
If Out(i) <> "" Then: OutAll = OutAll & "/" &
Out(i)
Next
Cells(n, 9) = Mid(OutAll, 2, 999)
OutAll = ""
End If
Next |
|
發表於 2018-8-10 10:23
| 