文章预览
学习Excel技术，关注微信公众号： excelperfect 标签： VBA 在 www.vbaexpress.com 中看到的，适合 VBA 初学者的很好的一个示例。将一个工作表中已设置格式的数据转换成另一种格式设置的数据，以方便输出为 csv 文件。 原数据如下图 1 所示。 图 1 转换后的数据如下图 2 所示。 图 2 代码如下： Sub Reformat() Dim sOut As String Dim wsOut As Worksheet Dim rIn As Range, rEnd As Range Dim rowIn As Long, rowOut As Long, colIn As Long, colCostType As Long With ActiveSheet Set rEnd = .Cells(.Rows.Count, 1).End(xlUp) Set rIn = Range(.Cells(3, 1), rEnd) Set rIn = Intersect(rIn.EntireRow, rIn.CurrentRegion) sOut = ActiveSheet.Name & "-Out" End With '如果输出工作表存在则删除 Application.DisplayAlerts = False On Error Resume Next Worksheets(sOut).Delete Application.DisplayAlerts = True On Error GoTo 0
………………………………
