Please suggest a shorter way to delimit values

[ThrottleWorks]

Hi,

I am using below mentioned code to ‘delimit’ values.

This code is recorded. Could anyone please suggest me a shorter way to delimit the column.

Columns("A:A").TextToColumns Destination:=Range("A1"), DataType:=xlDelimited, TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=True, _
Semicolon:=False, Comma:=False, Space:=False, Other:=False, FieldInfo:=Array(1, 1), TrailingMinusNumbers:=True

 

[Hui]

Nothing wrong with that apart from applying it to the whole Column instead of just the data range

Dim rng As Range, lr As Integer
lr = Range("A" & Rows.Count).End(xlUp).Row
Set rng = Range("A1:A" & lr)
rng.TextToColumns Destination:=Range("A1"), DataType:=xlDelimited, TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=True, _
Semicolon:=False, Comma:=False, Space:=False, Other:=False, FieldInfo:=Array(1, 1), TrailingMinusNumbers:=True

You also don't need to define the parameters which are defualted

Dim rng As Range, lr As Integer
lr = Range("A" & Rows.Count).End(xlUp).Row
Set rng = Range("A1:A" & lr)
rng.TextToColumns Destination:=Range("A1"), _
  DataType:=xlDelimited, _
  TextQualifier:=xlDoubleQuote, _
  ConsecutiveDelimiter:=False, _
  Tab:=True, _
  FieldInfo:=Array(1, 1), _
  TrailingMinusNumbers:=True

 

[ThrottleWorks]

Thanks a lot @Hui sir. Wishing you and your family a very happy Deepawali (festival of lights).

Have a nice day ahead.