分类：电脑/网络-软件-办公软件
问题：请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