ভিবিএ ব্যবহার করে একটি সমাধান এখানে দেওয়া হয়েছে:
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
, এবং আপনি একটি উপায় দেওয়া টেবিল থেকে নামের সাথে যে টেবিল পূরণ করতে চান?