تشخیص بلوک های اطلاعاتی درون ویژوال بیسیک

[esiexcel]

سلام
یکسری آزمایش داریم که حالا باید از داخلش دیتا برداریم. میخام ویژوال بیسیک خودش نواحی که دیتا دراون هست رو تشخیص بده. آیا راهی هست؟ مثلا در فایلی که ضمیمه کردم 6 مرحله یا step هست.

[iranweld]

در فایل ذیل تعداد کلمات STEP و سطر آن توسط ماکرو مشخص میگردد


Sub TEST()

Dim TEST As Integer

TEST = 0

For Each CELL In ActiveSheet.UsedRange

If InStr(LCase(CELL), LCase("STEP")) > 0 Then

CELLROW = "Satre: " & CELL.Row

MsgBox CELLROW

TEST = TEST + 1

End If

Next

MsgBox TEST & " :Tedade Step"



End Sub

[esiexcel]

ممنون از iranweld عزیز.
من میخام از فایلی که Attach کردم یکسری دیتا دربیارم. مثلا در پایین هر step میانگین اعداد هر ستون رو استخراج کنه و بعد سطر میانگین ها رو در یک صفحه دیگه کپی کنه. مشکل من اینه که تعداد زیادی از این فایل ها هست که جای این جدول ها داخلش بالا پایین میشه. یعنی ترکیب جداول همین شکلیه ولی جاشون ثابت نیست. ممنون میشم اگه بتونین کمکم کنین.

[iranweld]

بهترین کار این است که ساختار جدول خود را تغییر دهید تا بتوانید با استفاده از ابزار موجود در اکسل مانند پیوت تیبل گزارشگیری نمایید.

نام آیتمهای اصلی را در سر ستونها قرار دهید و سایر دیتاهای متغییر را در سطرها منتقل نمایید

در این حالت بایستی از ویژوال بیسیک کمک بگیرید که کار را برای شما پیچیده مینماید