標題: [發問] 自動填滿 [打印本頁]

---

作者: kasa    時間: 2018-2-11 01:28     標題: 自動填滿

本帖最後由 kasa 於 2018-2-11 01:31 編輯

平常keyin檢驗數據,只會打一次品號&品名,然後再把所屬檢驗項目的數據填入
累積一段時間後,要設計巨集可自動填滿A/B欄位分別不同的品號&品名
請各位大大幫忙指導如何撰寫
感謝[attach]28358[/attach]

---

作者: GBKEE    時間: 2018-2-11 08:35

回復 1# kasa

1. Option Explicit
   
2. Sub Ex()
   
3.     With Range("a1").CurrentRegion.Range("a:b")
   
4.         If .Cells.Count <> Application.CountA(.Cells) Then
   
5.             .SpecialCells(xlCellTypeBlanks) = "=r[-1]c"
   
6.         End If
   
7.         .Value = .Value
   
8.     End With
   
9. End Sub

複製代碼

---

作者: ML089    時間: 2018-2-11 18:01

初級的寫法
Sub ex()
For i = 2 To Cells(4 ^ 8, "C").End(xlUp).Row
    If Cells(i, "A") = "" Then Cells(i, "A") = Cells(i - 1, "A").Value
    If Cells(i, "B") = "" Then Cells(i, "B") = Cells(i - 1, "B").Value
Next
End Sub

---

作者: kasa    時間: 2018-2-17 21:15

感謝GBKEE大大與ML089大大
GBKEE大大指導的是可一次性使用,ML089大大指導的是可累積反覆不同天檢驗數據使用
我正在想如何融合兩種寫法~~
感謝~~

---

歡迎光臨 麻辣家族討論版版 (http://forum.twbts.com/)