请excel高手帮忙看一下数据很多,不用复制粘贴,而用公式或者函

数据很多,不用复制粘贴,而用公式或者来操作,来完成下面的格式.谢谢!

请excel高手帮忙看一下数据很多,不用复制粘贴,而用公式或者函

  用函数来完成有难度,而且数据量多的话速度不是很理想,用A帮你写了一个,你试一下效果,点“分拣数据”按钮就好了!

  ’按钮的单击事件代码非常之简单——

  Option Explicit ‘强制声明变量

  Private Sub CommandButton1_Click()

  On Error Resume Next ‘设置错误处理

  Application.ScreenUpdating = False ‘关闭屏幕刷新

  Dim rngCell As Range, intRow%, i%

  With Sheets(“sheet2”)

  For Each rngCell In Range([A2], [A65536].End(xlUp)) ‘在Sheet1中循环每条记录

   intRow = .[A65536].End(xlUp).Row + 1 ‘记录Sheet2中可以添加新数据的行号

   .Cells(intRow, 1) = rngCell ‘在Sheet2中写入“单位简称”

   For i = 2 To 6 ‘在Sheet1中的单行记录中的C:G列循环

   If Len(rngCell.Offset(0, i)) <> 0 Then ‘检测空值,忽略空值

   .Cells(intRow, 256).End(xlToLeft).Offset(0, 1) = ActiveSheet.Cells(1, i + 1) ‘在Sheet2中写入非空值的费用名称

   .Cells(intRow, 256).End(xlToLeft).Offset(0, 1) = rngCell.Offset(0, i) ‘在Sheet2中写入非空值的金额

   End If

   Next i

   .Cells(intRow, 12) = rngCell.Offset(0, 7) ‘在Sheet2中写入合计数

   .Cells(intRow, 13) = rngCell.Offset(0, 8) ‘在Sheet2中写入大写金额

  Next

  .Select ‘

  End With

  Application.ScreenUpdating = True ‘打开屏幕刷新

  End Sub

原创文章,作者:ddzw.info,如若转载,请注明出处:https://www.ddzw.info/dnwl/40557.html

发表评论

邮箱地址不会被公开。 必填项已用*标注