資料讀取及排列問題 - Excel程式區 - 麻辣家族討論版版

麻辣家族討論版版 » Excel程式區 » 資料讀取及排列問題

返回列表下一主題上一主題發帖

[發問] 資料讀取及排列問題

版主 Rank: 7 Rank: 7 Rank: 7

帖子: 2843
主題: 10
精華: 0
積分: 2899
點名: 0
作業系統: 〔略〕
軟體版本: 〔略〕
閱讀權限: 100
性別: 男
來自: 〔略〕
註冊時間: 2013-5-13
最後登錄: 2025-7-17

1^# 跳轉到 »

發表於 2016-4-25 15:59 | 顯示全部帖子

Sub TUU()
Dim xR As Range, T1$, T2$, TT$
For Each xR In [B2:K2]
If xR = "Ｏ" Then
If T1 <> "" Then T2 = xR(0) Else T1 = xR(0)
Else
If T1 <> "" Then
TT = TT & "," & T1 & IIf(T2 = "", "", "-" & T2)
T1 = "": T2 = ""
End If
End If
Next
MsgBox Mid(TT, 2)
End Sub

複製代碼

靜思自在 : 稻穗結得越飽滿，越會往下垂，一個人越有成就，就要越有謙沖的胸襟。

返回列表下一主題上一主題