11、单元格编辑

1、单元格输入

Range("a1") = "ab"
Range("a1") = "a" & chr(10) & "b" # 换行输入

2、单元格复制

2.1、range().Copy range()

复制多少单元格，粘贴多少单元格
range("a1"a10").Copy range("c1") # a1:a10的内容、格式等复制粘贴到c1:c10

2.2、range().Copy…Worksheet.Paste range()

先将目标区域进行复制，然后使用工作表的粘贴方法
Range("a1:a10).Copy
ActiveSheet.Paste Range("f1")

2.3、指定粘贴方式

PasteSpecial 方法

将剪贴板中的 Range 对象粘贴到指定区域中。

语法

expression.PasteSpecial(Paste, Operation, SkipBlanks, Transpose)

参数

expression 必需。该表达式返回一个 Range 对象。

Paste XlPasteType 类型，可选。指定要粘贴的区域部分。

XlPasteType 可为以下 XlPasteType 常量之一，对应选择性粘贴-粘贴方法
xlPasteAll 默认值
xlPasteAllExceptBorders
xlPasteColumnWidths
xlPasteComments
xlPasteFormats
xlPasteFormulas
xlPasteFormulasAndNumberFormats
xlPasteValidation
xlPasteValues
xlPasteValuesAndNumberFormats

Operation XlPasteSpecialOperation 类型，可选。指定粘贴操作。

XlPasteSpecialOperation 可为以下 XlPasteSpecialOperation 常量之一，对应选择性粘贴-运算
xlPasteSpecialOperationAdd
xlPasteSpecialOperationDivide
xlPasteSpecialOperationMultiply
xlPasteSpecialOperationNone 默认值
xlPasteSpecialOperationSubtract

SkipBlanks Variant 类型，可选。若为 True，则不将剪贴板上区域中的空白单元格粘贴到目标区域中。默认值为 False。

Transpose Variant 类型，可选。若为 True，则粘贴区域时转置行和列。默认值为 False。

示例

Range("a1:a10").Copy
Range("e1").PasteSpecial (xlPasteValues) # 只粘贴数值

3、单元格剪切

Cut 方法

用法与Copy方法一样

4、填充公式

FillDown 方法

从指定区域的顶部单元格开始向下填充，直至该区域的底部。区域中首行单元格的内容和格式将复制到区域中其他行内。

语法

expression.FillDown

参数

expression 必需。该表达式返回一个 Range 对象。

示例

本示例基于单元格 A1 的内容填写 Sheet1 的单元格区域 A1:A10。

Worksheets("Sheet1").Range("A1:A10").FillDown

FillUp 方法，与FillDown一致

FillLeft 方法，同上

FillRight 方法，同上

5、行列插入

Insert 方法

行上方插入，列左侧插入

示例

Rows(4).Insert