আমি একটি এক্সেল শীট পরিচালনা করতে জেনারেটসসিভি () সাব উন্নত করেছি যাতে প্রতিটি তালিকার শিরোনাম এবং তাদের শিরোনামগুলি থেকে তালিকাগুলি উভয়ই পৃথক করে খালি রেখাসমূহ সহ একাধিক তালিকা রয়েছে handle উদাহরণ
list title 1
item 1
item 2
list title 2
item 1
item 2
এবং তাদের একসাথে একাধিক সারিতে মিশ্রিত করে, প্রতি তালিকায় 1।
কারণ হিসাবে, আমার কাছে একজন ক্লায়েন্টকে বিষয়বস্তুর উপর ভিত্তি করে তাদের ওয়েবসাইটের জন্য তালিকা বিন্যাসে একাধিক কীওয়ার্ড পাঠিয়েছিলেন, সহজেই ওয়েবপৃষ্ঠায় এই কীওয়ার্ডগুলি প্রবেশ করার একটি উপায় প্রয়োজন। তাই রুটিনটি সংশোধন করে নীচের বিষয়গুলি নিয়ে এসেছি, আমি পরিবর্তনশীল নামগুলিও অর্থপূর্ণ নামগুলিতে পরিবর্তন করেছি:
Sub generatecsv()
Dim dataRow As Integer
Dim listRow As Integer
Dim data As String
dataRow = 1: Rem the row that it is being read from column A otherwise known as 1 in vb script
listRow = 1: Rem the row in column B that is getting written
Do Until Cells(dataRow, 1).Value = "" And Cells(dataRow + 1, 1).Value = ""
If (data = "") Then
data = Cells(dataRow, 1).Value
Else
If Cells(dataRow, 1).Value <> "" Then
data = data & "," & Cells(dataRow, 1).Value
Else
Cells(listRow, 2).Value = data
data = ""
listRow = listRow + 1
End If
End If
dataRow = dataRow + 1
Loop
Cells(listRow, 2).Value = data
End Sub