excel巨集程式選擇性貼上值求救!

我的execl巨集如下:

但是執行到Range("B95:F95").Select 這一列起就錯了

請大大們幫我修正

Sub 日()

'

' 日 Macro

' 2009/2/27 錄製

'

' 快速鍵: Ctrl+q

'

Range("K2:O9").Select

Selection.Copy

Workbooks.Open Filename:="E:\1.xls"

Sheets("校對表").Select

Range("AK5").Select

Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _

:=False, Transpose:=False

Range("AK5").Select

Sheets("圖資(日)").Select

[B95].End(xlUp).Resize(1, 248).Copy [B95].End(xlUp).Offset(1, 0)

Range("B95:F95").Select

Application.CutCopyMode = False

Selection.Copy

[B95].End(xlUp).Resize(1, 5)

Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _

:=False, Transpose:=False

2 Answers

Rating
  • 夏日
    Lv 5
    1 decade ago
    Favorite Answer

    從Range("B95:F95").Select

    這一句以後全改成下面試試

    Range("B95:F95").Copy

    [B95].End(xlUp).PasteSpecial Paste:=xlPasteValues

    Application.CutCopyMode = False

    2009-03-03 12:04:32 補充:

    Sub 日()

    Range("K2:O9").Copy

    Workbooks.Open Filename:="E:\1.xls"

    Sheets("校對表").Select

    Range("AK5").PasteSpecial Paste:=xlPasteValues

    Range("AK5").Select

    Sheets("圖資(日)").Select

    [B95].End(xlUp).Resize(1, 248).Copy [B95].End(xlUp).Offset(1)

    Range("B95:F95").Copy

    [B95].End(xlUp).PasteSpecial Paste:=xlPasteValues

    Application.CutCopyMode = False

    End Sub

    有問題再討論。

  • 1 decade ago

    感謝夏日給的意見

    但你不貼回答

    讓我覺得不好意思

    我是一個初學者

    感謝你幫的大忙

    感謝!

Still have questions? Get your answers by asking now.