[已解决]VBA代码看不懂

shawnzhang

下面这段代码看不动，特别是复制和粘贴的那一部分。谢谢，麻烦稍微解释得详细一点。

Range("A14:AZ1000").ClearContents
Range("A1").Select
    Selection.Copy
    Range("A14:AD1000").Select
    Selection.PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, _
        SkipBlanks:=False, Transpose:=False
    Application.CutCopyMode = False

最佳答案

月排行榜 / 总排行榜

sunjing-zxl

2012-2-1 14:17

Range("A14:AZ1000").ClearContents   '清除A14:AZ1000区域

Range("A1").Select   '选择A1单元格
    Selection.Copy     '复制选择的单元格
    Range("A14:AD1000").Select     '选择A14:AD1000区域
'下面是选择性粘贴的代码
'Paste 可选 XlPasteType 要粘贴的区域部分。      
'Operation 可选 XlPasteSpecialOperation 粘贴操作。
'SkipBlanks 可选 Variant 如果为 True，则不将剪贴板上区域中的空白单元格粘贴到目标区域中。默认值为 False。
'Transpose 可选 Variant 如果为 True，则在粘贴区域时转置行和列。默认值为 False。
    Selection.PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, _
        SkipBlanks:=False, Transpose:=False

'返回或设置剪切或复制模式的状态。可为 True、False 或如下表所示的一个 XLCutCopyMode 常量。
'False 取消剪切或复制模式并清除移动边框。
'True 取消剪切或复制模式并清除移动边框。
    Application.CutCopyMode = False

跳转到最佳答案楼层

sunjing-zxl

Range("A14:AZ1000").ClearContents   '清除A14:AZ1000区域

Range("A1").Select   '选择A1单元格
    Selection.Copy     '复制选择的单元格
    Range("A14:AD1000").Select     '选择A14:AD1000区域
'下面是选择性粘贴的代码
'Paste 可选 XlPasteType 要粘贴的区域部分。      
'Operation 可选 XlPasteSpecialOperation 粘贴操作。
'SkipBlanks 可选 Variant 如果为 True，则不将剪贴板上区域中的空白单元格粘贴到目标区域中。默认值为 False。
'Transpose 可选 Variant 如果为 True，则在粘贴区域时转置行和列。默认值为 False。
    Selection.PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, _
        SkipBlanks:=False, Transpose:=False

'返回或设置剪切或复制模式的状态。可为 True、False 或如下表所示的一个 XLCutCopyMode 常量。
'False 取消剪切或复制模式并清除移动边框。
'True 取消剪切或复制模式并清除移动边框。
    Application.CutCopyMode = False

270665358

呵呵 讲解的真
全面

shawnzhang

sunjing-zxl 发表于 2012-2-1 14:17
Range("A14:AZ1000").ClearContents   '清除A14:AZ1000区域

Range("A1").Select   '选择A1单元格

讲解非常详细，非常感谢！