不能上链接,带附件的,微信公众号,搜【财会人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,这一课圆满结束,都学会了的,祝贺您,以后上班可以划水了,划水之余记得再学点儿什么,学无止境。