請問 如果我要在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變成一個工作列呢
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隨手寫一下
因為沒有貼程碼所以不知道你的問題在哪邊