三月, 2018 | ExcelOffice

Sub QQ1722187970()
    Dim oWK As Worksheet
    '定义要处理的表格对象变量
    Set oWK = Sheet1
    Dim oRng As Range
    Dim oRngMerge As Range
    Dim sTemp As String
    With oWK
        '返回没有合并单元格的列的最后一行
        iRow = .Range("b65536").End(xlUp).Row + 1
        '为了避免最后的合并单元格没有结尾，添加辅助单元格
        .Cells(iRow, "b") = "temp"
        '从有数据的单元格开始遍历
        For i = 2 To iRow - 1
            '判断有合并单元格的列区域
            Set oRng = .Cells(i, "a")
            '每次遇到合并单元格的开始时，临时变量清空
            If Len(oRng) Then sTemp = ""
            '如果存在合并单元格，开始处理
            If oRng.MergeCells Then
                '第一次处理时sTemp为空
                If Len(sTemp) = 0 Then
                    '定义合并的单元格区域
                    Set oRngMerge = oRng.MergeArea
                    '遍历合并的单元格区域占用的单元格区域
                    For j = i To i + oRngMerge.Count - 1
                        '要处理的代码
                    Next j
                Else
                    '如果临时变量有值了，则不再遍历合并单元格占用的单元格区域
                    '要处理的代码
                End If
            Else
                '没有合并单元格的处理代码
                '**************'
            End If
        Next i
        '清除辅助的单元格
        .Cells(iRow, "b") = ""
    End With
    MsgBox "操作完毕!"
End Sub

1

2

3

4

5

6

7

8

9

10

11

12

13

14

15

16

17

18

19

20

21

22

23

24

25

26

27

28

29

30

31

32

33

34

35

36

37

38

39

40

41

42

Sub QQ1722187970()

Dim oWK As Worksheet

'定义要处理的表格对象变量

Set oWK = Sheet1

Dim oRng As Range

Dim oRngMerge As Range

Dim sTemp As String

With oWK

'返回没有合并单元格的列的最后一行

iRow = .Range("b65536").End(xlUp).Row + 1

'为了避免最后的合并单元格没有结尾，添加辅助单元格

.Cells(iRow, "b") = "temp"

'从有数据的单元格开始遍历

For i = 2 To iRow - 1

'判断有合并单元格的列区域

Set oRng = .Cells(i, "a")

'每次遇到合并单元格的开始时，临时变量清空

If Len(oRng) Then sTemp = ""

'如果存在合并单元格，开始处理

If oRng.MergeCells Then

'第一次处理时sTemp为空

If Len(sTemp) = 0 Then

'定义合并的单元格区域

Set oRngMerge = oRng.MergeArea

'遍历合并的单元格区域占用的单元格区域

For j = i To i + oRngMerge.Count - 1

'要处理的代码

Next j

Else

'如果临时变量有值了，则不再遍历合并单元格占用的单元格区域

'要处理的代码

End If

Else

'没有合并单元格的处理代码

'**************'

End If

Next i

'清除辅助的单元格

.Cells(iRow, "b") = ""

End With

MsgBox "操作完毕!"

End Sub

如何用vba返回多个单元格区域的重叠单元格区域？

2018年3月23日作者：exceloffice

暂无评论

在处理excel单元格区域时，有时候需要获取重叠的单元格区域。

vba中的Application对象的Intersect方法可以返回多个单元格区域的重叠部分。

它的语法如下：

expression . Intersect( Arg1 , Arg2 , Arg3 , Arg4 , Arg5 , Arg6 , Arg7 , Arg8 , Arg9 , Arg10 , Arg11 , Arg12 , Arg13 , Arg14 , Arg15 , Arg16 , Arg17 , Arg18 , Arg19 , Arg20 , Arg21 , Arg22 , Arg23 , Arg24 , Arg25 , Arg26 , Arg27 , Arg28 , Arg29 , Arg30 )

1	expression . Intersect( Arg1 , Arg2 , Arg3 , Arg4 , Arg5 , Arg6 , Arg7 , Arg8 , Arg9 , Arg10 , Arg11 , Arg12 , Arg13 , Arg14 , Arg15 , Arg16 , Arg17 , Arg18 , Arg19 , Arg20 , Arg21 , Arg22 , Arg23 , Arg24 , Arg25 , Arg26 , Arg27 , Arg28 , Arg29 , Arg30 )

我们经常用这个方法来返回一个已使用的单元格[……]

阅读全文

如何在vba中使用stop语句设置断点？

2018年3月23日作者：exceloffice

暂无评论

vba程序代码的调试有多种方法，可以逐语句调试，也可以设置断点调试。

设置断点有两种方式，一种是在程序运行之前先设置好断点，待运行到设置断点处，中断程序运行。

另一种是使用vba Stop语句设置断点，使得满足某个条件时，中断程序运行。

使用Stop语句设置断点一般应用于知道具体的[……]

阅读全文

如何返回当前excel应用程序的版本号？

2018年3月21日作者：exceloffice

暂无评论

在某些情景，我们需要知道excel的版本号。

vba提供了一个快速获取当前excel应用程序的版本号的方法，即使用Application对象的Version属性获取当前excel应用程序的版本号。

Sub QQ1722187970()
 MsgBox Excel.Application.Version
End Sub

1

2

3

Sub QQ1722187970()

MsgBox Excel.Application.Version

End Sub

如何获取excel单元格数值区域中最大的重复值个数？

2018年3月20日作者：exceloffice

暂无评论

比如A1:F1单元格区域中分别有数值1 1 1 1 1 6，则最大的重复值个数为5（即有5个1）。

比如A1:F1单元格区域中分别有数值1 1 1 2 2 6，则最大的重复值个数为3（其中有3个1和2个2，最大的重复值个数为3）。

比如A1:F1单元格区域中分别有数值1 1 1 1 1[……]

阅读全文

如何用vba把多个word文档的内容提取到excel中？

如何用vba根据出生年月计算实际的年龄？

如何在vba中实现vb中的Timer控件定时器功能？

如何用vba强制启用所有宏？

如何用vba开启“信任对vba工程对象模型的访问”?

如何在vba中编写通用的处理excel合并单元格的代码？

如何用vba返回多个单元格区域的重叠单元格区域？

如何在vba中使用stop语句设置断点？

如何返回当前excel应用程序的版本号？

如何获取excel单元格数值区域中最大的重复值个数？

分类目录

近期文章

功能

分类目录

近期文章

标签

功能