combine sheets in excel vba

The Excel workbook you manage has been modified by many people, many of which are often inconsistent, providing VBA code to implement one-click layout of tabular data format, eliminating the manual frequent adjustment of Excel data format.1 Option Explicit2 OptionBase13 4 SubAutoSet ()5 DimI as Integer6 7 fori =1 toSheets.count8

cylindrical cone ', ' xlconecolclustered ': ' Clustered column-shaped cone ', ' xlconecolstacked ': ' Stacked column cone ', ' xlConeColStacked100 ': ' percent stacked cylindrical cone ', ' xlcylinderbarclustered ': ' Clustered Bar-shaped column ', ' xlcylinderbarstacked ': ' Stacked bar cylinder ', ' xlCylinderBarStacked100 ': ' percent stacked bar cylinder ', ' Xlcylindercol ': ' Three-dimensional cylindrical cylinder ', ' xlcylindercolclustered ': ' Clustered column-shaped cone ', ' xlcylind

1 Option Explicit2 OptionBase13 4 SubFillsheet ()5 DimI as Long6 DimJ as Long7 DimCol as Long8 DimRow as Long9 DimArr () as LongTenrow = Application.inputbox (prompt:="Input row:", type:=2) OneCol = Application.inputbox (prompt:="input column:", type:=2) A ReDimarr (Row, col) - fori =1 toRow - forj =1 toCol theArr (i, j) = (I * j)Mod - - Next - Next - + 'need to select -Worksheets ("Sheet3"). Activate + DimRng asVariant A SetR