- 帖子
- 5923
- 主題
- 13
- 精華
- 1
- 積分
- 5986
- 點名
- 0
- 作業系統
- win10
- 軟體版本
- Office 2010
- 閱讀權限
- 150
- 性別
- 男
- 來自
- 台灣基隆
- 註冊時間
- 2010-5-1
- 最後登錄
- 2022-1-23
        
|
回復 3# kaosh22
1# 有說:這邊因為原始資料的命名原則，會出現如F4,F5都是相同的FS1，
3# 圖片二是將1,8,5,1帶入工作表有上色的儲存格後將料表更新
當F4,F5都是相同的FS1 要如何帶入FS1(工作表)有上色的儲存格.- Option Explicit
- Sub Ex_圖一()
- Dim Ar(), Ay(1 To 5), i As Integer, Sp As Variant
- With Sheets("SHEET1")
- i = 2
- Do While .Cells(i, "A") <> ""
- Erase Ay
- ReDim Preserve Ar(1 To i - 1)
- Sp = Split(.Cells(i, "A"), "-")
- Ay(1) = Sp(0)
- Ay(2) = Sp(1)
- Ay(3) = Mid(Sp(2), 1, 2)
- If Len(Sp(2)) > 2 Then Ay(4) = Mid(Sp(2), 3, 2)
- Ay(5) = .Cells(i, "C")
- Ar(i - 1) = Ay
- i = i + 1
- Loop
- .Range("F2").Resize(i - 2, 5) = Application.Transpose(Application.Transpose(Ar))
- End With
- End Sub
|
|
發表於 2015-3-25 06:23
| 
