返回列表下一主題上一主題發帖

[發問] 自動填滿

kasa

中學生 Rank: 2

帖子: 20
主題: 5
精華: 0
積分: 63
點名: 0
作業系統: WINXP
軟體版本: OFFICE 2007
閱讀權限: 20
註冊時間: 2014-11-21
最後登錄: 2023-2-9

1^# 跳轉到 » 倒序看帖

打印

字體大小: tT

發表於 2018-2-11 01:28 | 只看該作者

[發問] 自動填滿

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

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

test.zip (6.75 KB)

樓主熱帖

GBKEE

超級版主 Rank: 8 Rank: 8

帖子: 5923
主題: 13
精華: 1
積分: 5986
點名: 0
作業系統: win10
軟體版本: Office 2010
閱讀權限: 150
性別: 男
來自: 台灣基隆
註冊時間: 2010-5-1
最後登錄: 2022-1-23

2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章論壇貢獻勳章熱烈參與勳章 2011兔年全勤獎章

2^#

發表於 2018-2-11 08:35 | 只看該作者

回復 1# kasa

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

複製代碼

感恩的心......(在麻辣家族討論區.用心學習會有進步的)
但資源無限,後援有限, 一天1元的贊助,人人有能力.

TOP

ML089

版主 Rank: 7 Rank: 7 Rank: 7

帖子: 2025
主題: 13
精華: 0
積分: 2053
點名: 0
作業系統: WIN7
軟體版本: Office2007
閱讀權限: 100
性別: 男
來自: 台北市
註冊時間: 2011-3-2
最後登錄: 2024-3-14

論壇榮譽勳章論壇贊助勳章熱烈參與勳章 2014馬年全勤獎章 2015羊年全勤獎章 2016猴年全勤獎章

3^#

發表於 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

{...} 表示需要用 CTRL+SHIFT+ENTER 三鍵輸入公式

TOP

kasa

中學生 Rank: 2

帖子: 20
主題: 5
精華: 0
積分: 63
點名: 0
作業系統: WINXP
軟體版本: OFFICE 2007
閱讀權限: 20
註冊時間: 2014-11-21
最後登錄: 2023-2-9

4^#

發表於 2018-2-17 21:15 | 只看該作者

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

TOP

靜思自在 : 天上最美是星星，人生最美是溫情。

返回列表下一主題上一主題