アプリケーションオブジェクト定義エラー（1004）

Question

Excelシートの特定の列に値を作成するメソッドを作成しようとしています。上記のランタイムエラーは、Sheets.Cells.Value = Cint行で実行してください。どのようなアイデアが問題になるのでしょうか？ありがとう！

For Each Cell In Sheets(tab_name).Range(cell_range) 
    current_row = Cell.Row 
    split_cells = Split(Cell.Value, ".") 
    Sheets(tab_name).Cells(current_row, 58).Value = CInt(split_cells(0)) 
Next Cell 

Answer 1

セルは空でなければなりません。 Splitは空でない文字列の配列を返します。ここで

それを書くための簡単な方法です：

For Each Cell In Sheets(tab_name).Range(cell_range) 

    With Cell.EntireRow 
     If Cell <> "" Then 
      split_cells = Split(Cell.Value, ".") 
      .Cells(1, 58).Value = CInt(split_cells(0)) 
     Else 
      .Cells(1, 58).Value = 0 
     End If 

    End With 
Next Cell 

Answer 2

はINT(Cell.Value)何をしようとするには十分ではないでしょうか？