Home |
Search |
Today's Posts |
#3
![]() |
|||
|
|||
![]() Quote:
Sub DuplicateValuesInColumnA() Dim a, b As Long Columns("A").Select Selection.UnMerge a = Range("M" & Rows.Count).End(xlUp).Row - 2 For b = 0 To a If Range("A2").Offset(b, 0) < "" Then Range("A2").Offset(b, 0) = Range("A2").Offset(b, 0) Else: Range("A2").Offset(b, 0) = Range("A2").Offset(b - 1, 0) End If Next b End Sub
__________________
Asobi Wa Owari Da |
Thread Tools | Search this Thread |
Display Modes | |
|
|
![]() |
||||
Thread | Forum | |||
Help: Export specific data in a sheet in a new row | Excel Programming | |||
Export Data into another sheet | Excel Discussion (Misc queries) | |||
export sheet data for batch script | Excel Programming | |||
export excel data to another sheet | Excel Programming | |||
can I export just the autofiltered data into own sheet? | Excel Discussion (Misc queries) |