শুধুমাত্র দৃশ্যমান কোষ নির্বাচন করুন

Question

আমি কিছু দৃশ্যমান এন্ট্রি, কিছু খালি ঘর এবং কিছু সূত্র ফলাফল সহ ডেটা একটি কলাম (70 কিছু সারি) নিতে একটি উপায় খুঁজছি। আমি শুধুমাত্র প্রবেশ করানো তথ্য এবং সূত্র ফলাফল কপি করার জন্য একটি উপায় খুঁজছেন।

উদাহরণ স্বরূপ

    T1  T2  T3  T4  T5
    2   2       1   5
    1   6   3   4   
    1       6       1
        2   4   1   2
    1   2   1   3

ফিরে আসবে

    T1  T2  T3  T4  T5
    2   2   3   1   5
    1   6   6   4   1
    1   2   4   1   2
    1   2   1   3   

Comments

আমি নিশ্চিত নই যে দ্বিতীয় টেবিলের প্রথম টেবিলে কী ঘটেছে ... আপনি কি বিস্তারিতভাবে ব্যাখ্যা করতে পারেন?

— Jerry

মূল্য যা ছিল শুধুমাত্র কোষ উপর বাহিত হয়

আমি যা বর্ণনা করছি তার উদাহরণে আমি কোনও প্যাটার্ন দেখছি না।

— Moses

কলাম টি 1 তে, ২, 1, 1, 1 প্রাথমিকভাবে এবং 2, 1, 2, 1 পরে ছিল। কোথায় দ্বিতীয় 2 যান এবং তৃতীয় 1 কোথা থেকে এসেছিলেন?

— Jerry

দুঃখিত, আমি কিছু টাইপ ছিল বুঝতে পেরেছি। মনে হচ্ছে @ সাইকোডটাটা যদিও আমার কাছে যা ছিল তা বুঝিয়েছিল

Answer 1

একটি অ VBA সমাধান:

1. টেবিল নির্বাচন করুন।
2. আঘাত জন্য ctrl + + জি
3. আঘাত বিশেষ ...
4. "খালি" বাছাই করুন
5. আঘাত জন্য ctrl + + -
6. "Shift কোষগুলি আপ করুন" চয়ন করুন
7. আঘাত প্রবেশ করান

Tadaa!

Comments

পারফেক্ট! বিস্ময়কর সহজ। এবং সহজে আমি আমার সহকর্মীদের এটা কিভাবে করতে পারেন তা প্রদর্শন করতে পারেন। ;-)

Answer 2

আমি আপনার শীট এই মত দেখাচ্ছে অনুমান করছি:

ওপেন ভিবিই এবং ALT + + F11 এবং একটি নতুন সন্নিবেশ করান Module

নীচের কোড অনুলিপি এবং পেস্ট এবং চালানো RemoveEmptiesAndShfitUp সাব

Sub RemoveEmptiesAndShiftUp()
    Dim i As Long, j As Long, r As Range
    For j = Cells(1, Columns.Count).End(xlToLeft).Column To 1 Step -1
        For i = Cells(Rows.Count, j).End(xlUp).Row To 2 Step -1
            Set r = Cells(i, j)
            If IsEmpty(r) Then r.Delete shift:=xlUp
            Set r = Nothing
        Next i
    Next j
End Sub

কোডটি শেষ কলামের সারিতে প্রথম কলামে দ্বিতীয় সারিতে পুনরাবৃত্তি করবে এবং অন্যান্য ফাঁকা কক্ষগুলি অন্যগুলির উপরে স্থানান্তরিত করবে। সুতরাং আপনার ফলাফল দেখতে হবে

Comments

আমি আপনাকে ভোট দিতে হবে, কিন্তু আমি এখনও cant :( যে বলতে, এই কাজ নিখুঁত