ListRow = 1: Rem the row in column B that is getting writtenĭo Until Cells(dataRow, 1).Value = '' And Cells(dataRow + 1, 1).Value = ''ĭata = data & ',' & Cells(dataRow, 1). How to Convert Rows to Columns in Excel using Transpose Start the cell by selecting and copying an entire range of data. So modified the routine and came up with the following, also I changed the variable names to meaningful names: Sub generatecsv()ĭataRow = 1: Rem the row that it is being read from column A otherwise known as 1 in vb script Click Ok, then select a cell to put the result. The TAKE function is used to grab the first or last (or first few or last few) rows or columns from a table.

In the Transform Range dialog, check Single row to range, then you can specify the Fixed value under Columns per record section. Reason, I had a client send me multiple keywords in list format for their website based on subject matter, needed a way to get these keywords into the webpages easily. Select the single row you want to convert to a range, and click Kutools > Range > Transform Range.

example list title 1Īnd combines them of course into multiple rows, 1 per list. I improved the generatecsv() sub to handle an excel sheet that contains multiple lists with blank lines separating both the titles of each list and the lists from their titles.

Convert a row to a column in excel