vba,在列里快速填上36个月
时间: 2023-12-04 16:02:37 浏览: 31
您可以使用以下VBA代码将36个月填充到指定列中:
```VBA
Sub Fill36Months()
Dim i As Integer
Dim cell As Range
Set cell = Range("A1") '将A1替换为您要填充的列的第一个单元格
For i = 1 To 36
cell.Value = Format(DateSerial(Year(Date), Month(Date) + i - 1, 1), "yyyy-mm")
Set cell = cell.Offset(1, 0)
Next i
End Sub
```
这段代码将在指定列的第一个单元格中填充36个月份,从当前月份开始向后填充。如果您需要更改填充的起始日期,请修改`Set cell = Range("A1")`这一行中的单元格地址。
相关问题
VBA, 列里最后一个单元格所在行
你可以使用以下VBA代码来获取某一列中最后一个单元格所在的行号:
```
Dim lastRow as Long
lastRow = Cells(Rows.Count, "A").End(xlUp).Row
```
上述代码中的"A"表示你要获取的列。你可以将其替换为你需要的列字母。这段代码使用`xlUp`参数从下往上查找最后一个非空单元格。`Rows.Count`返回指定工作表的总行数。`End(xlUp)`将光标移到指定范围的最后一个单元格。最后,`.Row`返回该单元格的行号。
怎么快速把excel中省份列里31个省在时间列中对应的人数累计导出
1. 首先,在Excel中选中要操作的表格,包括省份列和时间列;
2. 在Excel菜单栏中选择“插入”->“透视表”,打开透视表窗口;
3. 在透视表窗口中,将省份列拖拽到“行”区域,将时间列拖拽到“列”区域,将人数列拖拽到“值”区域;
4. 在透视表窗口中,点击“值”区域下的人数列,选择“值字段设置”,选择“求和”或“计数”等统计方式;
5. 在透视表窗口中,点击“行”区域下的省份列,选择“筛选器”,选中需要统计的省份,点击“确定”;
6. 在透视表窗口中,右键点击透视表区域,选择“导出”,选择“以Excel文件格式导出”,保存文件。
这样就可以快速把Excel中省份列里的31个省在时间列中对应的人数累计导出了。
相关推荐
![pdf](https://img-home.csdnimg.cn/images/20210720083512.png)
![text/plain](https://img-home.csdnimg.cn/images/20210720083646.png)
![rar](https://img-home.csdnimg.cn/images/20210720083606.png)
![](https://csdnimg.cn/download_wenku/file_type_ask_c1.png)
![](https://csdnimg.cn/download_wenku/file_type_ask_c1.png)
![](https://csdnimg.cn/download_wenku/file_type_ask_c1.png)
![](https://csdnimg.cn/download_wenku/file_type_ask_c1.png)
![](https://csdnimg.cn/download_wenku/file_type_ask_c1.png)
![](https://csdnimg.cn/download_wenku/file_type_ask_c1.png)
![](https://csdnimg.cn/download_wenku/file_type_ask_c1.png)
![](https://csdnimg.cn/download_wenku/file_type_ask_c1.png)
![](https://csdnimg.cn/download_wenku/file_type_ask_c1.png)
![](https://csdnimg.cn/download_wenku/file_type_ask_c1.png)
![](https://csdnimg.cn/download_wenku/file_type_ask_c1.png)
![](https://csdnimg.cn/download_wenku/file_type_ask_c1.png)
![](https://csdnimg.cn/download_wenku/file_type_ask_c1.png)