小编NDu*_*nix的帖子

我正在尝试使用下面的代码将表单名称添加到Excel VBA中的数组中.它只获取一个值(始终是最后一个工作表名称).例如,如果我有2张:List1和List2,它只会拾取List2并显示第一张纸的空白值.如果我添加4,它只显示第4个,依此类推.我不确定为什么我会得到空白的价值观.

Dim curSheet As Worksheet
Dim ArraySheets() As String
Dim x As Variant

For Each curSheet In ActiveWorkbook.Worksheets

    If curSheet.Name Like "*List*" Then

        ReDim ArraySheets(x)

        ArraySheets(x) = curSheet.Name

        x = x + 1

    End If

Next curSheet

我正在使用Oracle数据库,并希望编写一个REGEXP_LIKE表达式,找到所有数字相同的任何数字,例如'999999999'或'777777777',而不指定字段的长度.此外,我希望它能够识别字符,例如'aaaaa'.

通过使用以下方法,我可以在指定字段长度时使其工作:

select * from table1
where regexp_like (field1, '^([0-9a-z])\1\1\1\1\1\1\1\1');

但我希望它能够在任何字段长度上执行此操作.

例如,如果字段包含"7777771",我不希望在结果中看到它.