能否用VBA代码自动向表格中添加数字

SHQM

请老师帮忙用代码向表格添加大写数字一.二.三.四.五一直到表格结束。见附件说明 自动添加一.二.三数字.rar (13.13 KB, 下载次数: 15)

2013-1-15 10:59 上传

点击文件名下载附件

SHQM

老师看看吗

从从容容

说的不清楚，

SHQM

从从容容 发表于 2013-1-15 12:20
说的不清楚，

就是手工填好第一组的(一),笫二组从笫一组复制下来那(一)自动变二

SHQM

老师帮帮忙啊

从从容容

SHQM 发表于 2013-1-15 12:28
就是手工填好第一组的(一),笫二组从笫一组复制下来那(一)自动变二

有QQ 吗，自己谈比较方便

蓝桥玄霜

1. Sub lqxs()
   
2. Dim Arr, i&, r%, Arr1()
   
3. Sheet1.Activate
   
4. Myr = [a65536].End(xlUp).Row
   
5. Arr = Range("a4:h" & Myr)
   
6. For i = 1 To UBound(Arr)
   
7.     If Arr(i, 1) = "" Then
   
8.         r = r + 1
   
9.         ReDim Preserve Arr1(1 To r)
   
10.         Arr1(r) = i
    
11.     End If
    
12. Next
    
13. For i = 1 To r
    
14.     Cells(Arr1(i) + 4, 1) = i
    
15.     Cells(Arr1(i) + 4, 1).NumberFormatLocal = "[DBNum1][$-804]G/通用格式"
    
16. Next
    
17. End Sub
    

复制代码

490540970

蓝桥玄霜 发表于 2013-1-15 20:14

又向兰导学了一招，佩服佩服