您好,我正在嘗試從 B 列(從 B2 開始)中取出前 4 個字符并將它們復制到 I 列(從 I2 開始)這段代碼有什么問題?它顯示為錯誤“1004”但我不確定這段代碼有什么問題。
Dim Cell As Range
For Each Cell In Range("B2:B100").Cells
If Cell.Value = "" Then
Cell.Value = Left(Cell.Offset(0, -7).Value, 4)
End If
Next
End Sub
也許您可以在代碼中找到可能指示錯誤的錯誤,謝謝!
uj5u.com熱心網友回復:
你把你的列搞混了。回圈 B 列,并寫入 I 列(偏移量為 7,而不是 -7)。
If Cell.Value <> "" Then
Cell.Offset(,7).Value = Left(Cell.Value, 4)
End If
轉載請註明出處,本文鏈接:https://www.uj5u.com/gongcheng/526178.html
標籤:擅长vba
