У меня есть большой набор данных, который выглядит так:
Количество столбцов для каждого штата одинаково (доход, стоимость и маржа). Набор данных имеет много других состояний справа, скажем, AZ, CO, CA и т. Д. (Реальный набор данных имеет более 100 городов)
Теперь я хочу разбить этот огромный сводный набор данных на отдельные таблицы на отдельных листах в той же книге, что и исходный набор данных (в этом примере 201701). Они похожи на эти 3 таблицы с черным заголовком:
3 столбца (доход, стоимость и маржа) одинаковы для каждой таблицы, тогда как программ больше, чем показано.
У меня есть больше таких файлов, поэтому будет 201702.xlsm, 201703.xlsm и т. Д.
Кто-нибудь может мне помочь с этой проблемой? Вот код, который я создал с использованием макроса (само собой разумеется, он не работает так, как я хочу).
Sub BreakdownTables()
'
' BreakdownTables Macro
'
'
Range("B1:D7").Select
Sheets.Add After:=ActiveSheet
Sheets("Trial").Select
'I basically just copy-paste the tables to separate sheets
Selection.Copy
Sheets("Sheet2").Select
ActiveSheet.Paste
Sheets("Trial").Select
Range("E1:G7").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("Sheet2").Select
Sheets.Add After:=ActiveSheet
Sheets("Sheet3").Select
ActiveSheet.Paste
Sheets("Trial").Select
Range("H1:J7").Select
Application.CutCopyMode = False
Selection.Copy
Sheets.Add After:=ActiveSheet
ActiveSheet.Paste
Sheets("Sheet4").Select
Application.CutCopyMode = False
Sheets("Sheet4").Move After:=Sheets(9)
Range("F19").Select
Sheets("Sheet2").Select
'Trying to automatically rename the sheets
Sheets("Sheet2").Name = "="
Range("E13").Select
Sheets("=A1").Select
End Sub
Я нахожусь здесь в своем уме и буду благодарен за любую помощь или предложение.
Большое спасибо!