Column A range break to multiple ranges


Sub data_filter()
Dim k As Integer
For k = 2 To Sheet1.Range("A" & Rows.Count).End(xlUp).Row Step 40
Sheet1.Range(Sheet1.Cells(k, "A"), Sheet1.Cells(k + 39, "A")).Copy Sheet1.Range("XFD1").End(xlToLeft).Offset(0, 1)
Next
End Sub

Example :-

data data      44,305      46,119      45,540
     44,305      49,819      43,784      49,313
     49,819      41,860      44,472      44,973
     41,860
     46,119
     43,784
     44,472
     45,540
     49,313
     44,973

Comments

Post a Comment

jeetexceltips@gmail.com

Popular posts from this blog

50 Excel VBA Oral Interview Questions

Ques 01. What is the difference between ByVal and ByRef and which is default ? Solution: ByRef: If you pass an argument by reference when calling a procedure the procedure access to the actual variable in memory. As a result the variable's value can be changed by the procedure. ByVal: If you pass an argument by value when calling a procedure the variable's value can be changed with in the procedure only outside the actual value of the variable is retained. ByRef is default: Passing by reference is the default in VBA. If you do not explicitly specify to pass an argument by value VBA will pass it by reference. Ques 02. What is the meaning of Option Explicit and Option Base? Solution: Option Explicit makes the declaration of Variables Mandatory while Option Base used at module level to declare the default lower bound for array subscripts. For eg. Option Base 1 will make the array lower bound as 1 instead of 0. Option Base - When an array is declared by d
Read more