標題: 請問一下，要寫入格式相同要如何更改 [打印本頁]

---

作者: 藍天麗池    時間: 2015-12-22 20:51     標題: 請問一下，要寫入格式相同要如何更改

Sub RecordPrice()
Dim WR As Long
Dim I As Long

WR = Range("A1").End(xlDown).Row + 1
[A2] = TimeValue(Now)
For I = 1 To 42
   Cells(WR, I) = Cells(2, I)
Next 'I
With ActiveWindow
        If Intersect(Cells(WR, "B"), .VisibleRange) Is Nothing Then .SmallScroll 1
    End With
End Sub

以上程式碼如果我要將A1粗體的數字往下寫，Cells(WR, I) = Cells(2, I)這個地方要怎麼改??
目前往下寫粗體就會消失了

---

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