Merging Excel cells in between two columns [closed] - vba

Question

Closed. This question needs to be more focused. It is not currently accepting answers.
Want to improve this question? Update the question so it focuses on one problem only by editing this post.
Closed 7 years ago.
Improve this question
I am Working with many Excel files. The first column is fixed with the heading product-name. The other column name is price.
I am trying to merge the columns that are between these two columns, Each file contains different number of columns between these two columns product-name and price
I am having trouble writing a macro to run each Excel file, can anyone show me an example?

Answer 1

I am assuming that only 1 st row need to be checked. assuming these are headers.
You can use the below VBA to check the the column headers and merge the in between columns
I have used random variables, you may change accordingly.
Sub test()
Cells(1, 1).Select
j = 1
Do
k = Cells(1, j).Value
Cells(1, j).Select
j = j + 1
Loop Until (k = "Product-name")
c1 = j
Do
k = Cells(1, j).Value
Cells(1, j).Select
j = j + 1
Loop Until (k = "Price")
c2 = j - 2
If (c2 > c1) Then
Range(Columns(c1), Columns(c2)).Select
Selection.Merge
End If
End Sub
k variable will store the column value and will be compared to "Product-name" and "Price".
c1 will store the next column number of the "Product-name"
c2 will store the column number of the "Price" -1, in logic it advances by 2 so subtracting the column number with 2.
Now you have column numbers in between both the headers.
Here there is small scenario which need to be considered, if there are no columns or if there is at least one column between these 2 columns, in that case directly you cannot merge columns. so additional comparison of column values.
I hope this answers your query. The code is tested and is working fine.