Question

我正在尝试用数字0替换范围内的所有空单元格。这是我的代码到目前为止，对我所做的错误的任何帮助都将不胜感激。

    $http({
      url: 'https://jsonplaceholder.typicode.com/posts',
      method: 'POST',
      data: {
        Body: 'some',
        Email: 'email@email.com',
        Name: 'name'
      },
      transformRequest: function(obj) {
          var str = [];
          for(var p in obj)
          str.push(encodeURIComponent(p) + "=" + encodeURIComponent(obj[p]));
          return str.join("&");
      },
      headers: {
        'Content-Type': 'application/x-www-form-urlencoded'
      }
    })

Answer 1

您可以使用SpecialCells()对象的Range方法：

if worksheetfunction.CountBlank(range("A1:O1"))>0 then  range("A1:O1").specialcells(xlCellTypeBlanks).Value=0

或

With Range("A1:O1")
    if worksheetfunction.CountBlank(.Cells) >0 Then .SpecialCells(xlCellTypeBlanks).Value=0
End With

Answer 2

您的问题是，您需要将所有单元格设置为空白才能使条件成立。相反，您可以定义范围并循环遍历范围的所有元素。

Sub tmp()
Dim r As Range, cell As Range

Set r = Range(Range("A1:O1"), Range("A1").End(xlDown))
For Each cell In r
    If cell.Value = "" Then cell.Value = 0
Next cell

End Sub

Answer 3

使用循环：

Sub marine()
    Dim r As Range, rr As Range

    Set r = Range("A1:O1")
    Set r = Range(r, r.End(xlDown))

    For Each rr In r
        If rr.Value = "" Then rr.Value = 0
    Next rr
End Sub

用0替换范围内的空白单元格

3 个答案: