[發問] 如何在有資料的地方自動編號?

winston219

請問如何在有出現姓名的地方，自動向下編號? 且編號能置中對齊? (如下1、2、3的數字自動跑出來)

編號   姓名
1       林小明
2       張大同
3       李小璇

oobird

1. Sub yy()
   
2. [a:a].HorizontalAlignment = xlCenter
   
3. Range("a2:a" & [b65536].End(3).Row) = "=row()-1"
   
4. [a:a] = [a:a].Value
   
5. End Sub

複製代碼

winston219

謝謝oobird大大丫，您真是我的貴人咧~

GBKEE

回復 1# winston219

1. Sub Ex() '使用 DataSeries 方法
   
2.     Range("A2") = 1
   
3.     Range("A2:A" & Range("B" & Rows.Count).End(xlUp).Row).DataSeries
   
4. End Sub

複製代碼

另有基本功操作
如何在有資料的地方自動編號?

winston219

謝謝GBKEE大大的細心說明!

winston219

請問如何自動計算合計? (如下之70、60、55自動算出)

編號   姓名     金額1      金額2     合計
1       林小明      50          20        70
2       張大同      20          40        60
3       李小璇      30          25        55

GBKEE

回復 6# winston219
基本功 E2公式=C2+D2
滑鼠在E2右下處 成黑色十字形時 按左鍵二下 完成

winston219

請問GBKEE大大，如何用VBA寫程式?

GBKEE

回復 8# winston219

1. Sub Ex() '編號 在B2
   
2.         Dim R As Range
   
3.         Set R = Range("B2").End(xlToRight)
   
4.         Set R = Range(R, R.End(xlDown)).Offset(, 1)
   
5.         R.Cells(1) = "合計"
   
6.         R.Cells(2).FormulaR1C1 = "=RC[-1]+RC[-2]"
   
7.         R.Cells(2).AutoFill Range(R.Cells(2), R.Cells(R.Rows.Count))
   
8.     End Sub
   
9. ''''''''''''''''''''''''''''''''''
   
10. Sub Ex() '編號 在B2
    
11.         Dim R As Range
    
12.         Set R = Range("B2").End(xlToRight)
    
13.         Set R = Range(R, R.End(xlDown)).Offset(, 1)
    
14.         R.Cells(1) = "合計"
    
15.         With Range(R.Cells(2), R.Cells(R.Rows.Count))
    
16.             .FormulaR1C1 = "=RC[-1]+RC[-2]"
    
17.             .Cells = .Value  '
    
18.         End With
    
19.     End Sub

複製代碼

winston219

哈，感謝GBKEE大大的教導!