织梦CMS - 轻松建站从此开始!

365bet在线

当前位置: > 365bet体育投注 >

效力提高99.99%的工干表极快拆卸分法!

时间:2018-11-05 04:15来源:未知 作者:admin 点击:
编按: 工干表拥有汇尽就拥有拆卸分。何以快快拆卸分工干表呢?文字分享了两个方法。第壹个方法供应那些期望觉得火箭快度的人,第二种方法供应那些喜乐背靠高铁的人。第壹种方

  编按:

  工干表拥有汇尽就拥有拆卸分。何以快快拆卸分工干表呢?文字分享了两个方法。第壹个方法供应那些期望觉得火箭快度的人,第二种方法供应那些喜乐背靠高铁的人。第壹种方法将用到VBA。对VBA小白的读者不要怕,干者知心的供了代码文件和详细的代码说皓。储藏本篇文字,以后却以直接下载代码骈杂修改几个参数值就能用于己己己的工干表拆卸分。

  即席小同伙拥有没拥有拥有遇到度过此雕刻么的效实:当我们365bet娱乐场下载所拥局部信息汇尽在壹张表里后,又需寻求将此雕刻张父亲表按某壹环境又拆卸分红多个工干表。那怎么才干完成呢?能最笨的方法坚硬是在原工干表选择数据然后骈制贴到新工干表,不外面此雕刻种方法不快宜数据多的案例,同时新工干表也需寻求壹壹重命名,露得万端琐。皓天就给父亲家伸见两种快捷使用的工干表拆卸分方法。

  如图,当今要365bet娱乐场下载此雕刻个工干表的情节按城市拆卸分红多个工干表。

  

  VBA是EXCEL处理微少量重骈工干最好用的器。不外面很多人对VBA壹窍不畅通,因此皓天给父亲家分享壹段代码,同时详细说皓了何以根据还愿365bet娱乐场下载修改代码值,便宜父亲家在工干中运用。

  (1)按住Alt+F11翻开VBA编纂器,点击“拔出产”菜单下的“模块”。

  

  (2)在右侧代码窗口输入下列代码。不想动顺手输入的却以加以帮下载曾经预备好的代码文件,直接骈制贴即却。

  Sub 拆卸分表()

  Dim i, iRow, iCol, t, iNum As Integer, sh As Worksheet, str As String

  Application.ScreenUpdating=False

  With Worksheets("Sheet1")

  iRow=.Range("A65535").End(xlUp).Row

  iCol=.Range("IV1").End(xlToLeft).Column

  t=3

  For i=2 To iRow

  str=.Cells(i, t).Value

  On Error Resume Next

  Set sh=Worksheets(str)

  If Err.Number 0 Then

  Set sh=Worksheets.Add(, Worksheets(Worksheets.Count))

  sh.Name=str

  End If

  sh.Range("A1").Resize(1, iCol).Value=.Range("A1").Resize(1, iCol).Value

  iNum=sh.Range("A" & Rows.Count).End(xlUp).Row

  sh.Range("A" & iNum + 1).Resize(1, iCol).Value=.Range("A" & i).Resize(1, iCol).Value

  Next i

  End With

  Application.ScreenUpdating=True

  End

  Sub

  代码松析:

  此雕刻边用白色文字体即兴需寻求根据还愿修改的代码参数;'用于体即兴注释,其后的文字并不影响代码的运转,条是用于说皓代码的。此雕刻边特地用灰色体即兴注释文字。 (责任编辑:admin)

顶一下
(0)
0%
踩一下
(0)
0%
------分隔线----------------------------
推荐内容