Home |
Search |
Today's Posts |
#19
Posted to microsoft.public.excel.programming
|
|||
|
|||
Issue with blanks and spaces
Hi Howard,
Am Wed, 19 Mar 2014 15:52:12 -0700 (PDT) schrieb L. Howard: This is one of many attempts to get it to write to sheet2. Is this a case like you describe above. I would do it with the formula only once. Try: Sub A2_Down_Copy() Dim lRowCount Dim myArr As Variant With Sheets("Sheet1") lRowCount = .Cells(Rows.Count, "AE").End(xlUp).Row With .Range("A2").Resize(lRowCount) .Formula = "=CONCATENATE(AE2&AG2&AI2&AK2&AM2&AO2)" .Value = .Value myArr = Range("A2:A" & lRowCount) End With End With Sheets("Sheet2").Range("B2").Resize(lRowCount) = myArr End Sub Regards Claus B. -- Vista Ultimate SP2 / Windows7 SP1 Office 2007 Ultimate SP3 / 2010 Prodessional |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
Charting blanks as spaces | Charts and Charting in Excel | |||
Issue removing leading and lagging spaces | Excel Programming | |||
How to count blanks and spaces that look like blanks | Excel Programming | |||
how do I remove leading spaces and leave the remianing spaces w | Excel Worksheet Functions | |||
Paste Special Skip Blanks not skipping blanks, but overwriting... | Excel Discussion (Misc queries) |