خطأ حراري عند محاولة إزالة القيم الفارغة من صفيف في VBA

Question

أحاول تشغيل صيغة بسيطة لإزالة الإدخالات الفارغة من صفيف.يتم تحميل الصفيف الذي أستخدمه من حقل في جدول البيانات الذي قمت بإعداده في Excel يسمى TY.اسم هذا الحقل هو TY [L3 رقم].أريد أن أبقي هذه المجموعة الديناميكية، حيث قد تتغير كإضافة المستخدم أو حذف الصفوف من جدول البيانات.بيانات الاختبار التي أستخدمها لديها 218 صفوف، 210 منها لديها إدخالات مكررة (التي أريد إزالتها لاحقا)، و 8 مدخلات من "".

عند تشغيل الماكرو، أحصل على خطأ في وقت التشغيل 9 "SUTTRIPT خارج النطاق" في السطر الأول من بياني if.

لقد أمضيت حرفيا ساعات في محاولة لفهم سبب إعطائي VBA هذا الخطأ.فهمي هو أن هذا يرجع إلى صفيف غير صحيح بشكل صحيح للتعامل مع البيانات التي يتم تمريرها إليها.لقد استخدمت نافذة Debug للتحقق من حجم صفيفاتها بشكل صحيح.

أنا جديد جدا في البرمجة، وتعليم نفسي كما أذهب، لكنني مجرد العثور على الحل لهذا واحد بمفردي.

giveacodicetagpre.

Answer 1

النطاقات هي صفائف متعددة الأبعاد .. (I.E. myarray (#، #) حيث سيكون الفهرس الأول هو الصف والعمود الثاني.

تغيير

giveacodicetagpre.

إلى

giveacodicetagpre.

إذا كان نطاقك عمود واحد فقط، فسيكون الفهرس الثاني دائما 1