APP下载

简单高效 Excel空白行列增减有道

2017-08-31俞木发

电脑爱好者 2017年16期
关键词:行列原始数据内置

俞木发

就地取材 用好Excel的内置功能

对于空白行列的添加,用Excel已经内置的一些组件可以快速实现。比如在制作单词列表数据时,为了便于查看和遮挡背诵,现在需要在原来的单词列表中插入空白行进行间隔,此时利用Excel内置功能就可以轻松实现(图1)。

首先在E2、F3输入1、2数值,接着选中“E2:F3”数组向下填充到原始数据的末行,使得数据和E列、F列输入的数值错开排列。选中E2:F11,按下F5点击“定位条件”,定位条件选择“空值”(图2)。

这样E2:F11的所有空白单元格都会被选中,点击“开始→插入→单元格→插入工作表行”,Excel就会在每行的间隔插入空行了,最后将E、F辅助列删除即可(图3)。

上述方法是添加插入空白行,如果要插入空白列,同上先在原始数据最后一行输入辅助数据,比如本例是A12→D12,依次输入1、2、3、4,E12→H2输入1.1、2.1、3.1、4.1(图4)。

点击“数据→排序和筛选→自定义排序”,在打开的排序窗口中点击“选项→按行排序”,主要关键字选择“行12”(即自定义的辅助行),排序依据为“数值”,排序的方式选择为“升序”(图5)。

这样完成数据的排序后就会自动在每列之间添加一个空白列,按提示将辅助行删除即可(图6)。

通过上述操作可以看到,空白行列的添加主要是借助添加辅助行、列的方法实现,对于行的添加是通过在原始数据的列尾添加错开辅助数据,然后通过排序实现,如果要插入多行则错开相应行数据即可。空白列则在原始数据的行尾添加对应列数的辅助行数据实现。大家可以根据自己的数据实际情况完成空白行列的添加。

一步到位 VBA脚本快速实现行列添加

上述增加辅助行列的方法虽然操作简单,但是对于很多追求效率的朋友来说,还是略显繁琐。对于这类朋友,还可以借助VBA脚本实现空白行列的一键添加。

要在上述示例中插入空白列,点击“开发工具→VB→插入→模块”,在打开的窗口中将下列代码粘贴到空白处,这样保存后就会添加一个名为“插入空白列”的宏脚本(图7):

Sub 插入空白列()

For i = 1 To 3

Cells(1, 2 * i).Select

Selection.EntireColumn.Insert

Next i

End Sub

代码解释:

For i = 1 To 3 :本例表示只插入3列空白列,具体数值请根据自己的实际数据选择。

Cells(1, 2 * i).Select:表示在第一行,2*i列处插入空白列进行间隔

S e l e c t i o n . E n t i r e C o l u m n . I n s e r t:EntireColumn表示插入的是列,如果是插入行則使用EntireRow代码。

保存后返回原始数据窗口,点击“开发工具→宏→插入空白列→执行”,执行这个宏后就会在原来的列之间插入一个空白列了(图8)。

如果是插入空白行,输入下列的代码即可:

Sub 插入空白行()

For i = 1 To 10 ,表示插入10个空行

Cells(2 * i, 1).Select

Selection.EntireRow.Insert ,表示插入的是空行

Next i

End Sub

猜你喜欢

行列原始数据内置
GOLDEN OPPORTUNITY FOR CHINA-INDONESIA COOPERATION
用“行列排除法”解四宫数独(2)
用“行列排除法”解四宫数独(1)
内置加劲环T型管节点抗冲击承载力计算
单层小波分解下图像行列压缩感知选择算法
芯片内置测试电路的设计
全新Mentor DRS360 平台借助集中式原始数据融合及直接实时传感技术实现5 级自动驾驶
内置管肠排列术治疗严重粘连性肠梗阻的临床分析
世界经济趋势
鞘内置入法腱鞘重建治疗Ⅱ区屈肌腱损伤