excel - 如何在 excel 宏中编码以将数据作为数据行提取到新工作表(新格式)
问题描述
在附件中,此报告将作为数据行提取到新工作表中,以输入到 ms access 数据库。示例输出数据显示在下部。任何人都知道如何在excel宏中做到这一点?谢谢!
解决方案
亲爱的@ROMEO SANDOVAL,我尝试为您创建一个代码以提供一些指导。查看工作表结构和输出并修改代码以满足您的需求。
结构与输出:
代码:
Option Explicit
Sub test()
Dim LastRowFirst As Long, LastRowNext As Long, LastColumn As Long, i As Long, j As Long
Dim Subcon As String
With ThisWorkbook.Worksheets("Sheet1")
LastRowFirst = .Cells(.Rows.Count, "A").End(xlUp).Row
'Loop start from row 3 (Row after Description) up to the last row of column A
For i = 3 To LastRowFirst
'If range is not empty
If .Range("A" & i).Value <> "" Then
If .Range("A" & i).Value = "CSTS" Or .Range("A" & i).Value = "MAMMOET" Or .Range("A" & i).Value = "GTA" Then
Subcon = .Range("A" & i).Value
Else
'Loop start from column 3 (where the different spot appears) up to column 5
For j = 3 To 4
LastRowNext = .Cells(.Rows.Count, "F").End(xlUp).Row
.Cells(LastRowNext + 1, 6).Value = Format(Now, "mm/dd/yyyy")
.Cells(LastRowNext + 1, 7).Value = Subcon
.Cells(LastRowNext + 1, 8).Value = .Range("A" & i).Value
.Cells(LastRowNext + 1, 9).Value = .Cells(2, j).Value
.Cells(LastRowNext + 1, 10).Value = .Cells(i, j).Value
Next j
End If
End If
Next i
End With
End Sub
推荐阅读
- ruby-on-rails - 从 Rails 4 迁移后,附加运算符“<<”不再将 AssociationRelation 转换为数组并在 Rails 5 上自动添加对象
- swagger - Swagger 从没有注释的 YAML 规范生成代码
- python - 天蓝色虚拟机操作
- swift - 从 String 到 UnsafePointer 的最佳转换是什么
? - azure-devops - 适用于 nopCommerce 4.xx 的 Azure DevOps(又名 VSTS)构建定义
- c# - 返回未经授权的 ViewResult
- python - 使用 python 转换为 CSV UTF-8 时,我的日期列正在转换为日期时间
- styles - 如何调整表格单元格边框的样式?
- ruby - has_many 在关联用户和项目时通过关联错误
- javascript - 输入范围和计算