Got it Sir. Thanks a lot.
On 29-Aug-2013 9:56 AM, "xlstime" wrote:
> Firstly try your self to run one by one line using F8(function key)
>
> Range("a2:a15").Cells(K, 1)
>
> cells(k,1) - "K" count no of active cells in row
>
> "K" value remains same till "K" count = count no of active cells in r
Firstly try your self to run one by one line using F8(function key)
Range("a2:a15").Cells(K, 1)
cells(k,1) - "K" count no of active cells in row
"K" value remains same till "K" count = count no of active cells in row
and its hold range("a2:a15")'s value
.
Enjoy
Team
Dear Sir,
Plesae explain the for my information.
Range("a2:a15").Cells(K, 1) out would be like
ABDE.continue
but how it come
AABCCDDDEEFHHHIIJKLLMN
Please explain.
It working very fine as per my desire output
On Wed, Aug 28, 2013 at 10:53 AM, Prafull Jadhav
wrot
Dear Sir,
Range("a2:a15").Cells(K, 1) out would be like
ABDE.continue
but how it come
AABCCDDDEEFHHHIIJKLLMN
Please explain.
It working very fine as per my desire output
On Wed, Aug 28, 2013 at 10:34 AM, xlstime wrote:
> PFB
>
>
> Sub amit()
> For K = 1 To Range
Different method to get little faster
Sub Amit()
Dim Data As Range, Buffer()
Dim iRow As Long, iCol As Long, iCount As Long
Dim tStart As Double
tStart = Timer
Set Data = Range("A1").CurrentRegion
ReDim Buffer(1 To Data.Count, 1 To 2)
For iRow = 2 To Data.Rows.Count
PFB
Sub amit()
For K = 1 To Range("B2:X15").EntireRow.Count
For P = 1 To Range("B2:X15").EntireColumn.Count
Range("AA500").End(xlUp).Offset(1, 0).Value = Range("B2:X15").Cells(K, P)
Range("AA500").End(xlUp).Offset(0, -1).Value = Range("a2:a15").Cells(K, 1)
Next
Next
End Sub
...
