- 帖子
- 4901
- 主題
- 44
- 精華
- 24
- 積分
- 4916
- 點名
- 105
- 作業系統
- Windows 7
- 軟體版本
- Office 20xx
- 閱讀權限
- 150
- 性別
- 男
- 來自
- 台北
- 註冊時間
- 2010-4-30
- 最後登錄
- 2024-5-7
              
|
回復 3# am0251 - Sub nn()
- Range("A7:E32").Font.Size = 14 '還原格式
- Range("A7:E32").Font.Bold = False
- If Application.CountA(Range("B7:B32, D7:D32, F7:F32")) > 0 Then '數量欄位
- For Each a In Range("B7:B32, D7:D32, F7:F32").SpecialCells(xlCellTypeConstants) '數量欄位有資料的位置
- a.Offset(, -1).Font.Size = 16 '改變格式
- a.Offset(, -1).Font.Bold = True
- With Sheets(2)
- a.Offset(, -1).Resize(, 2).Copy .Cells(.Rows.Count, 1).End(xlUp).Offset(1, 0) '複製到第2工作表A欄
- End With
- Next
- End If
- End Sub
|
|
發表於 2011-6-21 13:32
| 