MVEs are more concerned with the satisfaction of those they help than with the considerable points they can earn. They are the types of people you feel privileged to call colleagues. Join us in honoring this amazing group of Experts.
Add your voice to the tech community where 5M+ people, just like you, are talking about what matters.
Option Explicit Sub export2csv() Dim lastColumn As Integer Dim lastRow As Integer Dim strString As String Dim i As Integer, j As Integer lastColumn = ActiveSheet.UsedRange.Column - 1 + ActiveSheet.UsedRange.Columns.Count lastRow = ActiveSheet.UsedRange.Rows(ActiveSheet.UsedRange.Rows.Count).Row Open "export.csv" For Output As #1 For i = 1 To lastRow Cells(i, 1).Select strString = "" For j = 1 To lastColumn If j <> lastColumn Then strString = strString & Cells(i, j).Value & ";" ' Use semicolon instead of pipe. Else strString = strString & Cells(i, j).Value End If Next j Print #1, strString Next i Close #1 End Sub
|Need Help with Mapping and Toggling||3||22|
|Excel Split Employee Name into Lname Fname Mname||3||17|
|Highlight changing numbers in column||3||20|
|I need Excel macro modified to filter remote2office and filter out duplicates.||5||14|