- 帖子
- 558
- 主題
- 58
- 精華
- 0
- 積分
- 625
- 點名
- 0
- 作業系統
- win8
- 軟體版本
- office2013
- 閱讀權限
- 50
- 性別
- 男
- 來自
- TW
- 註冊時間
- 2010-11-22
- 最後登錄
- 2024-5-18
|
回復 3# y663258
新手~ 只有笨方法~ 不過測試是OK的~ 你可以試一下
N = 0
For I = 1 To 2000
For J = 1 To 6
Sheet1.Cells(I, J) = Sheet2.Range("B" & N + 2) & Chr(10) & Sheet2.Range("C" & N + 2)
W1 = Len(Sheet2.Range("B" & N + 1))
W2 = Len(Sheet2.Range("C" & N + 1))
With Sheet1.Cells(I, J).Characters(Start:=1, Length:=W1).Font
.Name = "新細明體"
.FontStyle = "標準"
.Size = 12
End With
With Sheet1.Cells(I, J).Characters(Start:=W1 + 1, Length:=W1 + 1 + W2).Font
.Name = "新細明體"
.FontStyle = "標準"
.Size = 10
End With
N = N + 1
If Sheet2.Range("B" & N + 2) = "" Then Exit Sub
Next
Next |
|
發表於 2011-1-19 12:12
| 
