এক্সেল এক্সপ্লোর পরিচালনা 50,000 সারি সঙ্গে একটি কলাম কিভাবে?

0

আমি সব কলাম "বি" হস্তান্তর করার চেষ্টা করছি, তবে একটি লাইন বাদ দিতে চাই এবং পরবর্তী 4 টি ধরতে এবং একই কলামে তাদের পেস্ট করতে চাই। আমি কীভাবে এই লুপটিকে "5" লাইনের সব কলাম "B" তৈরি করতে পারি এবং প্রতিটি স্বতন্ত্রভাবে নিজে নিজে টাইপ না করে স্বয়ংক্রিয়ভাবে পরবর্তী খোলা কক্ষ বা "রেঞ্জ" পরিসরটি পরিবর্তন করতে পারি?

Range("B12:B16").Select
    Selection.Copy
    Sheets("Sheet2").Select
    Range("A2").Select
    Selection.PasteSpecial Paste:=xlPasteAll, Operation:=xlNone, SkipBlanks:= _
        False, Transpose:=True
    Range("B18:B22").Select
    Selection.Copy
    Sheets("Sheet2").Select
    Range("A3").Select
    Selection.PasteSpecial Paste:=xlPasteAll, Operation:=xlNone, SkipBlanks:= _
        False, Transpose:=True
    Range("B24:B28").Select
    Selection.Copy
    Sheets("Sheet2").Select
    Range("A4").Select
    Selection.PasteSpecial Paste:=xlPasteAll, Operation:=xlNone, SkipBlanks:= _
        False, Transpose:=True

microsoft-excel

— user38950
সূত্র

1

আপনি শীট 1 এ কলামে আপনার ডাটাগুলিকে 'তথ্য' হিসাবে নামকরণ করতে পারেন এবং তারপরে সেটি 2 এ নিম্নলিখিতগুলি করতে পারেন ...

     A        B                    C                    D                    E
1    0        =INDEX(data,$A1+1)   =INDEX(data,$A1+2)   =INDEX(data,$A1+3)  =INDEX(data,$A1+4)
2    =A1+5    =INDEX(data,$A2+1)   =INDEX(data,$A2+2)   =INDEX(data,$A2+3)   =INDEX(data,$A2+4)
3    =A2+5    =INDEX(data,$A3+1)   =INDEX(data,$A3+2)   =INDEX(data,$A3+3)   =INDEX(data,$A3+4)
4    ...

এবং তারপর আপনি প্রয়োজন হিসাবে অনেক সারি নিচে অটলফিল।

— Mike Fitzpatrick
সূত্র

0

নিম্নলিখিতটি চেষ্টা করে দেখুন, আমি শুধু একসাথে রেখেছি, এটি যদি আপনি ইতিমধ্যে সূচিত সূত্র ভিত্তিক একটি ম্যাক্রো সংস্করণের পরে থাকেন।

অবশ্যই, আমি মনে করি এটি আপনার স্ট্যাটিক কোডটি করা উচিত, তবে একটি লুপের মধ্যে - তাই ম্যানুয়াল কপি-পেস্ট কাজ করার জন্য কোনও কাজ নেই। পুরো কলামটি পূর্ণ হলে এটি হ্রাস পেতে পারে (এটি শেষ সারিটি শেষ করার সময় এটি মরাবে)।

আপনার নির্দিষ্ট প্রয়োজনীয়তাগুলির সাথে মিলে যাওয়ার জন্য আপনাকে শুরু এবং পেস্টিং অবস্থানগুলি (শীর্ষে) পরিবর্তন করতে হবে - এটি বর্তমানে কলাম বি থেকে কলাম সি-এ কলগুলিতে কপি করে।

Dim CopyCell As Range
Dim PasteCell As Range

'starting location (ie, top of the list to copy)
Range("B1").Select

'pasting location (ie, top-left cell to start pasting to)
Set PasteCell = Range("C1")

Do While ActiveCell.Value <> 0
    'copy the items in the next four rows
    Set CopyCell = ActiveCell.Range("A1")
    ActiveCell.Range("A1:A4").Select
    Selection.Copy

    'move to paste location
    PasteCell.Select

    'paste with transpose
    Selection.PasteSpecial Paste:=xlPasteAll, Operation:=xlNone, _
        SkipBlanks:=False, Transpose:=True

    'adjust paste location for next paste
    Set PasteCell = PasteCell.Offset(1, 0)

    'return to last copied location and and move down five steps
    'copying 4 rows but moving 5 is how every 5th row is missed
    CopyCell.Select
    ActiveCell.Offset(5, 0).Select
Loop

— DMA57361
সূত্র