excel vba a列第1个到最后一个非空白单元格，不包含公式产生的空白单元格
在Excel VBA中，你可以通过以下代码来获取A列第1个到最后一个非空白单元格的位置： ```vba Sub FindLastNonBlankCell() Dim ws As Worksheet Dim rng As Range Dim lastRow As Long '设定你要操作的工作表 Set ws = ActiveSheet '或者指定具体工作表：Set ws = ThisWorkbook.Sheets("Sheet1") With ws '找到A列最后一个非空值的行号 lastRow = .Cells(.Rows.Count, "A").End(xlUp).Row '设定范围为从A1到找到的最后一行 Set rng = .Range("A1:A" & lastRow) '进一步筛选出非空白且非公式产生的空白单元格 Set rng = rng.SpecialCells(xlCellTypeConstants) '这里会筛选出所有常量（包括数值和文本），但不包含公式或空白单元格 '若需要排除空白单元格，可以再进一步筛选 Set rng = rng.SpecialCells(xlCellTypeConstants, xlTextValues) '这里只会筛选出非空白文本单元格 End With '现在rng就是你所需要的范围 MsgBox "The range of the first to the last non-blank cell in column A is: " & rng.Address(0, 0) End Sub ``` 以上代码首先找到A列最后一个非空单元格的行号，然后通过`.SpecialCells`方法进一步筛选出非空白且非公式产生的空白单元格。注意，`.SpecialCells(xlCellTypeConstants)`会筛选出所有常量单元格（包括数字和文本），如果仅需要文本非空白单元格，请使用`.SpecialCells(xlCellTypeConstants, xlTextValues)`。 如果你的非空白单元格也包括了含有数值的单元格，并且你希望一并算入，那么可能需要你自己根据实际情况调整筛选逻辑。 [2024-01-12 16:50:12 | AI写代码神器 | 413点数解答]
- import win32com.client import os def excel_to_pdf(input_file, output_file): # 确保输入文件存在 if not os.path.exists(input_file): raise FileNotFoundError(f"文件 {input_file} 不存在") # 创建 Excel 应用程序实例 excel = win32com.client.Dispatch("Excel.Application") excel.Visible = False # 不显示 Excel 窗口 try: # 打开 Excel 文件 wb = excel.Workbooks.Open(input_file) # 设置页面布局为 A4 横向 for ws in wb.Worksheets: ws.PageSetup.Orientation = 2 # 2 表示横向 （507点数解答 | 2025-03-10 15:48:12）147
- 创建成绩类，包含： 属性：平时成绩（int）、期末成绩（int） 方法：计算总成绩（计算规则：平时成绩*0.4+期末成绩*0.6，保留整数部分，小数部分直接丢弃） 创建学生类，包含： 属性：学号（string）、姓名（string）、语文成绩（成绩类）、数学成绩（成绩类）、物理成绩（成绩类） 方法：计算总分、计算平均分 输入3个学生的信息，将每个学生的信息封装在一个学生对象中。 按输入顺序依次输出3个学生的总分、平均分（精确到小数点后两位，舍去部分按四舍五入规则计入最后一位）。（847点数解答 | 2024-10-11 08:45:50）535
- 创建成绩类，包含： 属性：平时成绩（int）、期末成绩（int） 方法：计算总成绩（计算规则：平时成绩*0.4+期末成绩*0.6，保留整数部分，小数部分直接丢弃） 创建学生类，包含： 属性：学号（string）、姓名（string）、语文成绩（成绩类）、数学成绩（成绩类）、物理成绩（成绩类） 方法：计算总分、计算平均分 输入3个学生的信息，将每个学生的信息封装在一个学生对象中。 按输入顺序依次输出3个学生的总分、平均分（精确到小数点后两位，舍去部分按四舍五入规则计入最后一位）。 浮点数保留小数的相关知识可参考：https://blog.csdn.net/huaishuming/article/details/17752365 注意：未用学生类对象封装数据的，本题计0分（581点数解答 | 2024-11-19 15:54:02）300
- 成绩计算-2-关联类 分数 50 作者 蔡轲 单位 南昌航空大学 创建成绩类，包含： 属性：平时成绩（int）、期末成绩（int） 方法：计算总成绩（计算规则：平时成绩*0.4+期末成绩*0.6，保留整数部分，小数部分直接丢弃） 创建学生类，包含： 属性：学号（String）、姓名（String）、语文成绩（成绩类）、数学成绩（成绩类）、物理成绩（成绩类） 方法：计算总分、计算平均分 输入3个学生的信息，将每个学生的信息封装在一个学生对象中。 按输入顺序依次输出3个学生的总分、平均分（精确到小数点后两位，舍去部分按四舍五入规则计入最后一位）。 浮点数保留小数的相关知识可参考：https://blog.csdn.net/huaishuming/article/details/17752365 注意：未用学生类对象封装数据的，本题计0分（655点数解答 | 2025-04-18 11:41:55）178
- 7-2 成绩计算-2-关联类 分数 50 作者 蔡轲 单位 南昌航空大学 创建成绩类，包含： 属性：平时成绩（int）、期末成绩（int） 方法：计算总成绩（计算规则：平时成绩*0.4+期末成绩*0.6，保留整数部分，小数部分直接丢弃） 创建学生类，包含： 属性：学号（String）、姓名（String）、语文成绩（成绩类）、数学成绩（成绩类）、物理成绩（成绩类） 方法：计算总分、计算平均分 输入3个学生的信息，将每个学生的信息封装在一个学生对象中。 按输入顺序依次输出3个学生的总分、平均分（精确到小数点后两位，舍去部分按四舍五入规则计入最后一位）。 浮点数保留小数的相关知识可参考：https://blog.csdn.net/huaishuming/article/details/17752365 注意：未用学生类对象封装数据的，本题计0分 输入格式: 依次输入3个学生的每门课成绩，每个学生成绩信息格式： 学号+英文空格+姓名+英文空格+课程名+英文空格+平时成绩+英文空格+期末成绩 注：3个学生的课程顺序可能会不一致 例如： 22201311 张琳 语文 7（621点数解答 | 2025-04-18 11:43:55）230
- 题目描述 众所周知，鱼越大，鱼刺越大，鱼刺越大，肉越少，肉越少，鱼越小，所以鱼越大，鱼越小。 请问， 𝑛 n 条大小不一的鱼中，第 𝑖 i 大的鱼，是第几小的鱼？ 输入格式 输入包括 1 1 行，包含 2 2 个整数 𝑛 , 𝑖 n,i，分别表示鱼的数量 𝑛 n，和指定鱼是第 𝑖 i大的鱼。 输出格式 输出包括 1 1 行，包含 1 1 个整数，为指定鱼是第几小的鱼。（240点数解答 | 2025-08-01 21:38:06）51
- 题目描述 众所周知，鱼越大，鱼刺越大，鱼刺越大，肉越少，肉越少，鱼越小，所以鱼越大，鱼越小。 请问， 𝑛 n 条大小不一的鱼中，第 𝑖 i 大的鱼，是第几小的鱼？ 输入格式 输入包括 1 1 行，包含 2 2 个整数 𝑛 , 𝑖 n,i，分别表示鱼的数量 𝑛 n，和指定鱼是第 𝑖 i大的鱼。 输出格式 输出包括 1 1 行，包含 1 1 个整数，为指定鱼是第几小的鱼。（476点数解答 | 2025-08-01 21:38:52）68
- 题目描述 众所周知，鱼越大，鱼刺越大，鱼刺越大，肉越少，肉越少，鱼越小，所以鱼越大，鱼越小。 请问， 𝑛 n 条大小不一的鱼中，第 𝑖 i 大的鱼，是第几小的鱼？ 输入格式 输入包括 1 1 行，包含 2 2 个整数 𝑛 , 𝑖 n,i，分别表示鱼的数量 𝑛 n，和指定鱼是第 𝑖 i大的鱼。 输出格式 输出包括 1 1 行，包含 1 1 个整数，为指定鱼是第几小的鱼。 c++（213点数解答 | 2025-08-01 21:39:26）53
- 编写一个java应用程序，该程序要同时满足以下要求： （1）定义一个不规则的二维数组a，数组元素类型为double 型，第1行由2列元素构成，第2行由4列元素构成， 第3行由3 列元素构成，如下表所示。 （2）每个数组元素的内容由系统随机产生，范围为[0,100) 。提示：可使用如下代码产生随机数： import java.math.*; …… i=math.random( ); // random()产生[0,1)之间的任意实数（657点数解答 | 2024-05-24 10:40:42）241
- 定义具有继承关系的点类point和圆类circle和测试类mainclass， point类具有x,y两个属性，用于表示点的坐标(整数)，为point类添加相应构造方法point(x,y)。(2)circle类为point类的子类，它本身包含半径radius(整数)，为circle类添加相应构造方法circle(x,y ,radius)，求周长(小数)getperi ()和求面积(小数)getarea0)的方法，在方法中打印相关结果(公式:周长=2*3.14*半径，面积=3.14*半径*半径)。 (3)创建测试类mainclass,在其main方法中创建circle类对象c，圆心坐标(50，30)，半径为4，调用对象c的相关方法打印的圆的周长和面积。（246点数解答 | 2024-11-11 16:36:30）189
- 一个 5×6 的迷宫样例如下： 要求给出从起点（1，1）到终点（3，4）的路径。 为了处理方便，保证最外圈全都为障碍物。 扩展到一般情况，一个 m×n 的迷宫，要求输出从起点（1，1）到终点（m-2，n-2）的路径。 测试实例保证路径是唯一的。 该题要求自行设计一个栈来做。如果设计的是顺序栈，则保证栈的大小不超过 200 个元素。 输入 第一行为两个整数 m 和 n，表示 m×n 的迷宫。 接下来有 m 行，每行有 n 个数（n 个数之间用空格间隔，值 = 0 表示可以通行，值 = 1 表示为障碍物） 输出 输出从起点到终点的路径，每个坐标占一行，坐标间的行号和列号用一个空格间隔。具体格式可参考样例。c++ 源代码（732点数解答 | 2024-11-03 02:34:53）302
- excel vba 从sql server查询数据（1022点数解答 | 2023-12-14 14:23:41）199