宏驗證選定的非空白單元格 - 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