Lv,Gucci,Lv包包,Lv錢夾,Lv手錶,Lv目錄,Gucci公仔包,Lv購物包,Lv水桶包,Lv批發,愛美仕名牌購物

若Sheet2為您要執行的工作表，請在Sheet1加上1表（如圖）
 

並執行如下程式即可：

Private Sub volcolor()

Dim i, j, k, m, n, p, r As Integer

Dim pp, ss, tt, uu, pp1, ss1, uu1 As String

pp = "期平均總次數"

ss = "期總次數"

tt = "最近"

uu = "期平均期數"

Sheets("sheet1").Select

j = 1: n = 3: r = 4: p = 60

For i = 4 To 16

    k = Cells(i, j).Value

    m = Cells(i, j + 1).Value

    pp1 = k & pp

    ss1 = tt & k & ss

    uu1 = tt & k & uu

    Sheets("sheet2").Select

    Cells(r, p) = pp1

    Cells(r + 1, p) = ss1

    Range("BH" & r & ":DE" & r + 1).Font.ColorIndex = m

    Cells(r + 2, p) = tt & k & uu

    Range("BH" & r + 2 & ":DE" & r + 2).Font.ColorIndex = n

    r = r + 3

    Sheets("sheet1").Select

Next i

End Sub

範例檔相關範圍字型顏色因只嘗試輸入部分數字，無法看到全貌，若有資料即可看到。

下載地址

class="scoped_50a21b337636aMsoNormal"> 

Good luck!