VBA 中B列最后一个非空单元格
时间: 2024-05-08 18:19:45 浏览: 22
是什么?
你好,关于你的问题,我需要进一步了解一下你的数据结构和具体情况。在一般情况下,可以使用以下VBA代码来查找B列最后一个非空单元格:
```
Dim lastRow As Long
lastRow = ActiveSheet.Cells(Rows.Count, "B").End(xlUp).Row
```
这个代码可以返回B列最后一个非空单元格所在的行数。你可以根据自己的需要做出相应的调整。希望这能够帮到你。
相关问题
我需要一个VBA代码实现已知一个表格B列的数据不断累积,,需要一个循环代码和条件将复制的单元格粘贴到A列最后一个非空单元格的下个单元格并一直粘贴到B列的最后一行后停止运行
您好,我明白您的要求。以下是实现您要求的VBA代码示例:
Sub AccumulateData()
Dim lastRowA As Long
Dim lastRowB As Long
Dim i As Long
lastRowA = Cells(Rows.Count, "A").End(xlUp).Row ' 获取A列最后一个非空单元格的行数
lastRowB = Cells(Rows.Count, "B").End(xlUp).Row '获取B列最后一个非空单元格的行数
For i = 1 To lastRowB '循环遍历B列中数据
If Cells(i, "B").Value <> "" Then '如果当前单元格不为空
Cells(lastRowA + 1, "A").Value = Cells(i, "B").Value '将其值复制到A列最后一个非空单元格的下一个单元格
lastRowA = lastRowA + 1 '更新最后一个非空单元格的行数
End If
Next i
End Sub
您可以将上面的代码复制到VBA窗口中运行即可。希望能帮到您。如果您还有其他问题,欢迎随时提出。
帮我用写一个excel自动绘制sparkline折线图的VBA代码,sparkline绘制在A1单元格,折线图所用的数据选择B列中第一个非空单元格开始到末尾最后一个数
以下是根据您的需求编写的VBA代码:
```
Sub DrawSparkline()
Dim lastRow As Long
lastRow = Cells(Rows.Count, "B").End(xlUp).Row '获取B列最后一行的行号
Range("A1").SparklineGroups.Clear '清除A1单元格的Sparkline
'在A1单元格绘制Sparkline折线图
Range("A1").SparklineGroups.Add Type:=xlSparkLine, SourceData:=Range("B" & Range("B1").End(xlDown).Row & ":B" & lastRow), SeriesColor:=RGB(0, 176, 80)
End Sub
```
使用方法:
1. 打开Excel并打开要绘制Sparkline折线图的工作簿。
2. 按下ALT + F11打开VBA编辑器。
3. 在VBA编辑器中,选择要保存代码的工作表。
4. 在代码窗口中粘贴上面的代码。
5. 保存并关闭VBA编辑器。
6. 在工作表中选择任何单元格。
7. 打开开发者选项卡,单击“宏”,然后选择“DrawSparkline”宏。
8. 单击“运行”以执行宏。
9. 在A1单元格中,将出现Sparkline折线图,其数据源为B列中第一个非空单元格开始到末尾最后一个数。
相关推荐
![rar](https://img-home.csdnimg.cn/images/20210720083606.png)
![docx](https://img-home.csdnimg.cn/images/20210720083331.png)
![docx](https://img-home.csdnimg.cn/images/20210720083331.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)
![docx](https://img-home.csdnimg.cn/images/20210720083331.png)
![docx](https://img-home.csdnimg.cn/images/20210720083331.png)
![docx](https://img-home.csdnimg.cn/images/20210720083331.png)