Dave Peterson
12/12/2006 1:38:00 AM
One more.
It looks like you're stepping through 4 rows at a time and 6 columns at a time:
Option Explicit
Sub testme01()
Dim myRng As Range
Dim rCtr As Long
Dim cCtr As Long
With ActiveSheet
For cCtr = 1 To 24 Step 6
Set myRng = Nothing
For rCtr = 1 To 130 Step 21
If myRng Is Nothing Then
Set myRng = .Cells(rCtr, cCtr).Resize(4, 6)
Else
Set myRng = Union(myRng, .Cells(rCtr, cCtr).Resize(4, 6))
End If
Next rCtr
myRng.Merge across:=True
Next cCtr
End With
End Sub
The across:=true says to merge each row in the range on a row by row basis.
Donna C wrote:
>
> I am pretty new to this VB programming stuff and I am having some problems.I
> am trying to merge cells across a wide selection of cells on a work sheet. It
> worked fine when on a single line (column A:F for example) however the
> scrolling issue came in.I tried to concatenate and combine things however
> something is amiss. Its probably something simple but I can't see it.Any
> suggestions would be great.Heres what I've got.
> Range("A1:F1,A2:F2,A3:F3,A4:F4,A22:F22,A23:F23,A24:F24,A25:F25,A43:F43" & _
> "
> A44:F44,A45:F45,A46:F46,A64:F64,A65:F65,A66:F66,A67:F67,A85:F85,A86:F86" & _
> " A87:F87,A88:F88,A106:F106,A107:F107,A108:F108,A109:F109" & _
> " A127:F127,A128:F128,A129:F129,A130:F130" & _
> " G1:L1,G2:L2,G3:L3,G4:L4,G22:L22,G23:L23,G24:L24,G25:L25" & _
> " G43:L43,G44:L44,G45:L45,G46:L46,G64:L64,G65:L65,G66:L66" & _
> " G67:L67,G85:L85,G86:L86,G87:L87,G88:L88,G106:L106" & _
> "
> G107:L107,G108:L108,G109:L109,G127:L127,G128:L128,G129:L129,G130:L130" & _
> " M1:R1,M2:R2,M3:R3,M4:R4,M22:R22,M23:R23,M24:R24,M25:R25,M43:R43" & _
> " M44:R44,M45:R45,M46:R46,M64:R64,M65:R65,M66:R66,M67:R67,M85:R85" & _
> " M86:R86,M87:R87,M88:R88,M106:R106,M107:R107,M108:R108,M109:R109" & _
> " M127:R127,M128:R128,M129:R129,M130:R130" & _
> " S1:X1,S2:X2,S3:X3,S4:X4,S22:X22,S23:X23,S24:X24,S25:X25" & _
> " S43:X43,S44:X44,S45:X45,S46:X46,S64:X64,S65:X65,S66:X66" & _
> " S67:X67,S85:X85,S86:X86,S87:X87,S88:X88,S106:X106,S107:X107" & _
> " S108:X108,S109:X109,S127:X127,S128:X128,S129:X129,S130:X130").Select
> With Selection
> .HorizontalAlignment = xlGeneral
> .VerticalAlignment = xlBottom
> .WrapText = False
> .Orientation = 0
> .AddIndent = False
> .IndentLevel = 0
> .ShrinkToFit = False
> .ReadingOrder = xlContext
> .MergeCells = True
> End With
> Thanks in advance
> Donna C.
--
Dave Peterson