VBA 判斷空白及欄位自動輸入(excel) / 補充一問另一個excel檔案+進目前的工作表

vba

z6913123 2023-01-13 11:09:41 ‧ 1542 瀏覽

分享至

請問如果我要在excel依照欄位a是否為空白,若非則b欄位輸入"s0093",其中a行跟b行是等號的
也就是
a1有資料時 b1 自動填入"s0093"
a2有資料時 b2 自動填入"s0093"
a3是空白時 b3 則停止輸入

a3下後都會是空白

我應該怎麼寫比較好呢

目前測試用for讓A去跑判定空白
然後用if A 不是空白則B新增欄位資料
但會跳 1004 錯誤,因為是新手代碼寫得很醜,不傷各位眼睛就不放上來了
/
順便問一下在同路徑的資料夾下,我應該怎麼寫才能讓B.xls納進A.xls變成一個工作列呢

看更多先前的討論...收起先前的討論...

亂皮皮 iT邦新手 2 級 ‧ 2023-01-13 11:15:15 檢舉

為什麼要用VBA去做呢!
直接插入一個表單
在表單內增加行數B欄的公式就會自動增加

z6913123 iT邦新手 5 級 ‧ 2023-01-13 11:19:54 檢舉

因為現場人員不希望手動作業不然最簡單的方法我就給他B1一個值後他們自己去複製貼看要到哪裡就可以了

z6913123 iT邦新手 5 級 ‧ 2023-01-13 11:21:52 檢舉

另外補充目前沒解案的情況下我還真的就是用VBA做複製貼上但無法判斷A空白就停我只能抓平均A值會到第幾行然後直接複製到那邊多的再請他們刪(還沒正式使用只是目前的方案需要這樣)

亂皮皮 iT邦新手 2 級 ‧ 2023-01-13 11:52:38 檢舉

A欄是現場的人當下輸入的足筆足筆的增加嗎??

z6913123 iT邦新手 5 級 ‧ 2023-01-13 12:02:26 檢舉

NO A蘭是資料匯出所以每次都不是固定總數今天可能10筆明天可能30筆但不用手批

亂皮皮 iT邦新手 2 級 ‧ 2023-01-13 12:09:42 檢舉

Range("A:A").End(xlUp).Row(.Column)
抓出A欄筆數
用FOR去填入B欄資料

因為這樣一個小動作跑一個巨集感覺有點怪
如果開啟檔案在B1填入資料按下CTRL+E 或是在欄位右下角點擊兩下
向下填滿這樣是不是比較快

z6913123 iT邦新手 5 級 ‧ 2023-01-13 13:05:23 檢舉

因為調整後的資料還有匯入的需求(非直接讀取xls,而是得手動複製貼上) 如果用蘭的方式在全選貼上時會有問題

登入發表討論

直播研討會

{{ item.channelVendor }} {{ item.webinarstarted }} |

直播中

1 個回答

iT邦新手 4 級 ‧ 2023-01-13 11:41:05

最佳解答

Sub test()
Dim i As Integer
Dim temp As String
    i = 1
Do While i < 999
    temp = "A" & i
    If Range(temp).Value = "" Then
        temp = "B" & i & ":B999"
        Range(temp).Value = Null
        i = 1000
    Else
        temp = "B" & i
        Range(temp).Value = "S0093"
        i = i + 1
    End If
Loop
End Sub

N年沒寫VBA隨手寫一下
因為沒有貼程碼所以不知道你的問題在哪邊