不能上链接，带附件的，微信公众号，搜【财会人nAzy】，同课程内有链接地址。
———————————————
承接用友U8导入(4/5)。
五、批量编辑
突然想起来，忘记了讲怎么批量编辑导入底稿了，有三个知识点不容错过，一是定位可见单元格，二是批量输入内容，三是隔一行插入一行。
1. 定位可见单元格
随便捏了一个简易版日记账。
通过【数据】-【筛选】，选择摘要为"提现"的做范例。
选择区域计划录入科目银行1002
其实直接录入有的时候也是对的，具体各种情况什么结果我也不研究，只求结果，对可见单元格进行编辑。
按F5调出【定位条件】，选择【可见单元格】
注意，单元格选择边框与刚才不同了。
2. 批量输入内容
先注意左侧第一默认选择单元格为F2，看这里是为了如果批量选择空白单元格等于"头上"录入公式时必须看清楚的，应用场景为批量解除合并单元格之后，批量录入公式再黏贴数值，用以数据透视表。
在编辑栏录入科目代码，按住CTRL后键入ENTER，ok，可见单元格都录入了同样的科目代码'1002，我加入了文本字符。
取消筛选可见下图效果。
3. 提现的对方科目是1001现金，因此需要隔一行插入一行
常见教程教的应用方式如下，通过在需要编辑的区域做出整数数字序列，再同距离编辑出+0.5的数字序列，排序，而后得到隔一行插入一行的效果，嗯，很好。
我想对简单粗暴一些，没空点那么多次，直接选择我要插入行的区域，通过VBA，点一次得到效果。
代码很简单，通过选择区域跳两步插行而已，Step2就是跳两步的意思：
n = Selection.Row + 1
m = n + Selection.Rows.Count * 2
c = Selection.Column
For i = n To m - 2 Step 2
If Cells(i, c) <> "" Then
Cells(i, c).Select
Selection.EntireRow.Insert
End If
Next
另外，选择区域而后得到空行的代码更简单，仅一行：
Selection.SpecialCells(xlCellTypeBlanks).Select
同样，F5-选择可见单元格-确定，3次点击亦可以通过一次按钮搞定：
Selection.SpecialCells(xlCellTypeVisible).Select
数据-筛选简化为：
Selection.AutoFilter
听起来，只是将2-3次点击简化为1次，打过游戏么，每分钟200次点击的玩家在400次点击的玩家面前，纯被虐，对于几千几万次编辑才可见结果的表，差距巨大，甚至因为做不到而选择放弃形成质变！
OK，这一课圆满结束，都学会了的，祝贺您，以后上班可以划水了，划水之余记得再学点儿什么，学无止境。
上一篇
