返回列表 上一主題 發帖

[發問] 自動填滿

[發問] 自動填滿

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

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

回復 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
複製代碼
感恩的心......(在麻辣家族討論區.用心學習會有進步的)
但資源無限,後援有限,  一天1元的贊助,人人有能力.

TOP

初級的寫法
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
{...} 表示需要用 CTRL+SHIFT+ENTER 三鍵輸入公式

TOP

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

TOP

        靜思自在 : 謊言像一朵盛開的鮮花,外表美麗,生命短暫。
返回列表 上一主題