ভিবিএ ব্যবহার করে একটি সমাধান এখানে দেওয়া হয়েছে:
Public Sub columns()
Dim wks, wks1 As Worksheet
Set wks = ThisWorkbook.Sheets(1)
Set wks1 = ThisWorkbook.Sheets(2)
firstrowsource = 1
wks1.Application.ScreenUpdating = False
wks1.Cells.Clear
Last = wks.Cells(Rows.Count, "A").End(xlUp).Row
For i = firstrowsource To Last
Name = wks.Cells(i, 1)
Position = wks.Cells(i, 2)
j = 1
looking = True
While looking
If wks1.Cells(j, Position) = "" Then
If j <> 1 Then
wks1.Cells(j, Position) = Name
Else
wks1.Cells(j, Position) = Position
wks1.Cells(j + 1, Position) = Name
End If
looking = False
Else
j = j + 1
End If
Wend
Next i
wks1.Application.ScreenUpdating = True
Final = MsgBox("Finished", vbInformation)
End Sub
এই ওয়ার্কবুকের অধীনে আপনাকে ম্যাক্রোস / ভিজ্যুয়াল বেসিকের কাছে যেতে হবে, একটি নতুন মডিউল sertোকাতে হবে এবং ডানদিকে কোডটি পেস্ট করতে হবে।
এটি ধরে নেয় উত্স কার্যপত্রকটি শীট 1 এবং গন্তব্যটি শীট 2। যদি আপনার উত্স ওয়ার্কশিটে শিরোনাম থাকে তবে ভেরিয়েবলের মানটি সংশোধন করুন firstrowsource।
1,2এবং3, এবং আপনি একটি উপায় দেওয়া টেবিল থেকে নামের সাথে যে টেবিল পূরণ করতে চান?