excel表格自动生成aabbcc型数字的公式

来源：学生作业帮编辑：作业帮分类：综合作业时间：2024/05/10 14:39:06

excel表格自动生成aabbcc型数字的公式
例如112233 112244 112255、227799等,这类的要6位数的,

请下载附件测试!Sub abcabc()
    Dim i As Integer, m As Integer, n As Integer
    Dim x As Long, y As Integer
    x = 2: y = 1
    [a2:Z10000] = ""
    If MsgBox("允许类似111111,111122这样的有重复数字的出现吗?", vbYesNo + vbInformation) = vbYes Then
        For i = 1 To 9
            For m = 1 To 9
                For n = 1 To 9
                    Cells(x, y) = i & i & m & m & n & n
                    y = y + 1
                    If y = 22 Then y = 1: x = x + 1
        Next n, m, i
    Else
        For i = 1 To 7
            For m = 1 To 8
                If m = i Then GoTo mNext
                For n = 1 To 9
                    If n = m Or n = i Then GoTo nNext
                    Cells(x, y) = i & i & m & m & n & n
                    y = y + 1
                    If y = 22 Then y = 1: x = x + 1
nNext:          Next n
mNext:      Next m
        Next i
    End If
End Sub

excel表格自动生成aabbcc型数字的公式 excel表格自动生成公式 EXCEL表格里小写数字如何自动生成大写数字? 请问怎么在EXCEL表格中生成自动计算公式? 求助excel表格,判断满足条件后自动生成数据的公式! excel表格自动计算公式 EXCEL表格中,请帮忙写出一下表格中判断的公式,当数值为70-80时,自动在B列生成数值1,当数字为80-100时怎么样使excel表格中自动生成的数字前面带正负号,负号不用说了肯定行,正好怎么自动生成啊? excel中怎么让文本格式的数字也能按顺序自动填充?如图要让下面的表格依次生成90120001900000114465, excel 表格中怎么自动筛选所选择的公式 excel里如何把1串数字中间几个数字自动生成到另一个表格里 excel表格公式不会自动计算了!