宏验证选定的非空白单元格 - Excel VBA

Question

我试图在每个单元格中添加分隔符。

但是这段代码在下面的代码中将所有的单元格加上分隔符为空或空白，我只需要在非空单元格中使用分隔符。

你能帮助我，TKS很多

Dim Range As Object, Line As Object, Cell As Object 
    Dim StrTemp, chemin As String 
    Dim Separateur As String 

    Separateur = "," 
    'WBDest.Activate 
    Set Range = Worksheets(1).Columns(i) 
    'Set Range = Worksheets(1).Columns(i).SpecialCells(xlCellTypeBlanks) ' Not work 

    Open "C:\export\" + Str(i) + ".csv" For Output As #1 
    For Each Line In Range.Rows 
     StrTemp = "" 
     For Each Cell In Line.Cells 
      StrTemp = StrTemp & CStr _ 
      (Cell.Text) & Separateur 
     Next 
     Print #1, StrTemp '= " " 
    Next 
    Close 

Answer 1

你可以尝试验证单元格的值非空白？

For Each Line In Range.Rows 
    StrTemp = "" 
    For Each Cell in Line.Cells 
     If Cell.Text <> "" then      'validate for non-blanks 
      StrTemp = StrTemp & CStr _ 
      (Cell.Text) & Separateur 
     End if 
    Next 
     Print #1, StrTemp '= " " 
Next