DIDI3（数字转为TP，小写转换大写）

花舞月咏潭

已于 2022-04-27 16:39:44 修改

阅读量286

点赞数

分类专栏：水准 VBA 文章标签：开发语言 list

于 2022-04-27 13:02:51 首次发布

本文链接：https://blog.csdn.net/sinat_25006091/article/details/124448568

版权

VBA 同时被 2 个专栏收录

27 篇文章 1 订阅

订阅专栏

水准

10 篇文章 0 订阅

订阅专栏

这段代码展示了如何使用VBA在Excel中，通过SubDINI3宏，按条件删除Sheet2的特定列，并进行数据格式转换。它首先遍历多个行数，检查单元格是否为数字，然后进行TP标记或转换大写。最后，数据被复制到Sheet1的不同区域。

摘要由CSDN通过智能技术生成

Sub DINI3处理()
Dim i As Integer
i = 1
Sheet2.Cells(1, i).EntireColumn.Delete '符合条件的都删除整行
Sheet2.Cells(2, i).EntireColumn.Delete '符合条件的都删除整行
Sheet2.Cells(3, i).EntireColumn.Delete '符合条件的都删除整行
Sheet2.Cells(4, i).EntireColumn.Delete '符合条件的都删除整行
Sheet2.Cells(5, i).EntireColumn.Delete '符合条件的都删除整行
i = 2
Sheet2.Cells(2, i).EntireColumn.Delete '符合条件的都删除整行
Sheet2.Cells(3, i).EntireColumn.Delete '符合条件的都删除整行
Sheet2.Cells(4, i).EntireColumn.Delete '符合条件的都删除整行
i = 3
Sheet2.Cells(2, i).EntireColumn.Delete '符合条件的都删除整行
Sheet2.Cells(3, i).EntireColumn.Delete '符合条件的都删除整行
i = 4
Sheet2.Cells(2, i).EntireColumn.Delete '符合条件的都删除整行
For i = 2 To 319

If IsNumeric(Cells(i, 1)) Then
Cells(i, 1) = "TP"
Else

Cells(i, 1) = UCase(Cells(i, 1))
End If

Next
Sheet1.Range("a1:a319").Value = Sheet2.Range("a1:a319").Value
Sheet1.Range("b1:b319").Value = Sheet2.Range("c1:c319").Value
Sheet1.Range("c1:c319").Value = Sheet2.Range("b1:b319").Value

End Sub