vba excel 相关

最新推荐文章于 2023-07-27 13:27:51 发布

sealyna

最新推荐文章于 2023-07-27 13:27:51 发布

阅读量1k

点赞数

本文链接：https://blog.csdn.net/sealyna/article/details/8233162

版权

这篇博客介绍了VBA在Excel中操作单元格的方法，包括使用ActiveCell对象进行公式引用、偏移操作，以及通过Select Case语句实现条件赋值。还提供了一个名为mysub的子程序示例，用于遍历工作表中的特定列，根据列值自动填充另一列的内容。

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

活动单元格：ActiveCell.FormulaR1C1
活动单元格同行往前推一格：ActiveCell.Offset(0, -1).

复制：Selection.Copy 粘贴：ActiveSheet.Paste

Windows("单元格.xls").Activate：激活excel
Sheets("Sheet1").Select：激活excel 里的表

Select Case ActiveCell.FormulaR1C1
            Case Is = "MM"
            ActiveCell.Offset(0, -1).Value = "a"
            Case Is = "BB"
            ActiveCell.Offset(0, -1).Value = "b"

。。。。。
End Select

Sub mysub()
    Dim HANG As Long
    Dim col As Integer
    Dim colwrite As Integer
    col = 9
    colwrite = 8
    HANG = Range("I65536").End(xlUp).Row

    For int1 = 1 To HANG
        Select Case Cells(int1, col)
            Case Is = "MM"
            Cells(int1, colwrite).Value = "a"
            Case Is = "BB"
            Cells(int1, colwrite).Value = "b"
            Case Is = "DD"
        End Select
    Next int1
End Sub