Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- CleanedUpExportedWorksheet = CleanedUpExportedWorksheet & objResult.Cells(nRow, nCol).Value & ";"
- objResult.Cells(nRow, nCol).Value = objSheet.Cells(currentRow, currentCol).Value
- If nCol = 1 then
- If Not CellRegExp.Test(objResult.Cells(nRow, nCol).Value) then
- objResult.Cells(nRow - 1, nCol).Value = objResult.Cells(nRow - 1, nCol).Value & " " & objResult.Cells(nRow, nCol).Value
- objResult.Rows(nRow).EntireRow.Delete
- End If
- End If
Add Comment
Please, Sign In to add comment