iT邦幫忙

0

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

vba
  • 分享至 

  • xImage

請問 如果我要在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 }} |
{{ formatDate(item.duration) }}
直播中

1 個回答

0
TG
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隨手寫一下
因為沒有貼程碼所以不知道你的問題在哪邊

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

是希望達到這個效果沒錯 感謝您
因為我沒寫過 所以是從網上去抓範例改 因此代碼會長得奇形怪狀
為了避免各位大神看了吐血傷神就不敢放了

我要發表回答

立即登入回答