با سلام به اساتید ودوستان عزیز.در موضوع قبلی شماره گذاری فرمولی که جناب آقای امیر فرمودن در مورد داده های زیاد کند جواب میده .آیا راه حلی هست که در سریعترین زمان ممکن رو در کمترین زمان انجام بده ؟ ممنون میشم اگه راهنمایی بفرمایین
Sub counterrows()Dim ws As WorksheetDim i, lastline As IntegerSet ws = ActiveSheetlastline = Range("b65536").End(xlUp).Row For i = 1 To lastline If Cells(i, 2).Value <> "" Then ws.Cells(i, 1).Value = Application.Max(Range("A:A")) + 1 End If Next iEnd Sub
اخطار: این یک موضوع قدیمی است
به دلیل قدیمی بودن موضوع، ممکن است برخی فایل های ضمیمه به درستی کار نکنند. لطفا در صورت عدم ضرورت، از بالا آوردن موضوعات قدیمی خودداری نمایید.
علاقه مندی ها (Bookmarks)