Mahesh:
This works flawlessly. Thank you so much! And I'm impressed by how you got
it done with such little code.
Can you clarify which line of code formatted the raw data into data tables
and then styled them?
I was expecting to see something like:
.ListObjects("Table1").TableStyle = ""
I
Hi
Try :
Sub Mtest()
Dim ws2 As Worksheet
Dim c As Range
For Each c In Range("A1:A" & Cells(Rows.Count, 1).End(xlUp).Row)
If c.MergeCells Then
c.CurrentRegion.Copy
Set ws2 = Worksheets.Add(After:=Sheets(Sheets.Count))
With ws2
.Name = c.Value
.Range("A1
(Second attempt to attach file. ... )
Attached is a file with some sample tables. The README worksheet includes
some notes and the tasks I'm trying to automate (the main one is moving the
tables to separate worksheets, but I'd of course welcome suggestions for
any of the others).
Thanks for a
Hi,
Can you share Sample with group.
On Wed, Dec 21, 2011 at 3:43 AM, 0 1 wrote:
> I have an Excel worksheet containing many tables of data. Each table is
> separated by a blank row followed by a table title (which is merged across
> all 6 columns). (If it's helpful I can make these titles all
I have an Excel worksheet containing many tables of data. Each table is
separated by a blank row followed by a table title (which is merged across
all 6 columns). (If it's helpful I can make these titles all start with a
common word, like "Table," so "Table 1," "Table 2," etc.)
The tables all h
