excel中VBA获取指定单元格内容

1、筛选指定列获取数据

For Each Rng In Sheets("目录").Range("b1:B23")Debug.Print Rng.ValueIf Rng.Value = "个人" Thenn = n + 1Sheets("备注").Cells(n, "g").Resize(1, 5) = Rng.Offset(0, -1).Range("a1:e1").ValueSheets("备注").Cells(n, "g").Resize(1, 5) = Rng.EntireRow.Range("a1:e1").ValueEnd If
Next

2、获取指定杭内容

'On Error Resume Next
Application.ScreenUpdating = False
'MP = ActiveWorkbook.Path
MP = "C:\Users\HONORS\Desktop\（安智）杭实物联网进出库汇总表 总.xlsx" '工作簿路径
'MN = Dir(MP & "\" & "*.xlsx") '工作簿路径
' Set Wb = Workbooks.Open(MP & "\" & MN)Set Wb = Workbooks.Open(MP)For i = 1 To Wb.Sheets.Count
'Cells(i, 1) = Sheets(i).Name
Debug.Print Wb.Sheets(i).Name '获取表名
NextWith Wb.Sheets("总账（诸暨库）")lr = .Cells(Rows.Count, 1).End(xlUp).Row '获取最后一行Set rngs = .Range("A1:A" & lr) '确认列For Each Rng In rngs
'        Debug.Print Rng.ValueIf Rng.Value Like "2021/11/24" Thenn = n + 1ThisWorkbook.Sheets("测试").Cells(n, "a").Resize(2, 25) = Rng.EntireRow.Range("a1:y1").ValueThisWorkbook.Sheets("测试").Cells(n, "z").Value = ActiveSheet.NameEnd IfNext
End With

3、调整按模块输出内容:

进出库

Dim k%
'On Error Resume Next
Application.ScreenUpdating = False
'MP = ActiveWorkbook.PathName = "（安智）杭实物联网进出库汇总表 总"
Dtransport = "2021/12/17"
MP = "C:\Users\HONORS\Desktop\原始数据\储运数据\" & Name & ".xlsx" '工作簿路径
'MN = Dir(MP & "\" & "*.xlsx") '工作簿路径
' Set Wb = Workbooks.Open(MP & "\" & MN)Set Wb = Workbooks.Open(MP)'-----------
' For i = 1 To Wb.Sheets.Count
'    'Cells(i, 1) = Sheets(i).Name
'    Debug.Print Wb.Sheets(i).Name '获取表名
'Next'-----------last_row_clear = ThisWorkbook.Sheets("进出库").Cells(Rows.Count, 1).End(xlUp).Row '最后一行位置Debug.Print "行数" & last_row_clearThisWorkbook.Sheets("进出库").Rows("5:" & last_row_clear).Delete
'-----------
' For i = last_row_clear To 5 Step -1
'ThisWorkbook.Sheets("进出库").Rows(i).Delete
'Debug.Print "删除" & i & "行"
'Next'-----------
stockName = Array("总账（镇江库）", "总账（衢州库）", "总账（诸暨库）", "总账（昆山库）", "总账（泉州库）", "总账（武汉库）", "总账（泗阳库）", "总账（全椒库）")
For i = 0 To UBound(stockName)
'Debug.Print i
'        If i = 0 Then
'             Wb.ActiveSheet.Range("a1:Y3").Copy ThisWorkbook.Sheets("测试").Cells(1, 1)  '复制标题
'             ThisWorkbook.Sheets("测试").Cells(1, 1).Resize(3, 1) = 1
'        End IfWith Wb.Sheets(stockName(i))Wb.Sheets(stockName(i)).Activate '当前工作表激活lr = .Cells(Rows.Count, "A").End(xlUp).Row '获取最后一行Set rngs = .Range("A1:A" & lr) '确认列For Each Rng In rngs'            Debug.Print Rng.ValueIf Rng.Value Like Dtransport Thenk = k + 1 '记录条目Debug.Print "条目" & k & "：" & Rng.Value & ActiveSheet.Name '输出当前工作表内容last_row = ThisWorkbook.Sheets("进出库").Cells(Rows.Count, 1).End(xlUp).Row '最后一行位置'                       n = n + 1 '判断行数ThisWorkbook.Sheets("进出库").Cells(last_row, "a").Resize(2, 25) = Rng.EntireRow.Range("a1:y1").Value  '获取对应条目内容ThisWorkbook.Sheets("进出库").Cells(last_row, "z").Value = ActiveSheet.Name  '写入表格名称End IfNextEnd With
NextThisWorkbook.Sheets("进出库").Range("A:L").RowHeight = 15 '行高
'    ThisWorkbook.Sheets("进出库").Range("C:C").ColumnWidth = 35 '列宽Wb.Close False '关闭工作簿

4、获取规定条目内容：

运输

Dim k%
On Error Resume Next
Application.ScreenUpdating = False
'MP = ActiveWorkbook.Path
Name = "脚手架运输台账(热联&安智)12.18"
Dtransport = "2021/12/17"
MP = "C:\Users\HONORS\Desktop\原始数据\储运数据\" & Name & ".xlsx" '工作簿路径
'MN = Dir(MP & "\" & "*.xlsx") '工作簿路径
' Set Wb = Workbooks.Open(MP & "\" & MN)Set Wb = Workbooks.Open(MP)
'-----------
' For i = 1 To Wb.Sheets.Count
'    'Cells(i, 1) = Sheets(i).Name
'    Debug.Print Wb.Sheets(i).Name '获取表名
'Next'-----------last_row_clear = ThisWorkbook.Sheets("运输").Cells(Rows.Count, 1).End(xlUp).Row '最后一行位置Debug.Print "行数" & last_row_clearThisWorkbook.Sheets("运输").Rows("3:" & last_row_clear).DeletestockName = Array("热联")
'For i = 0 To UBound(stockName)
Debug.Print i
'        If i = 0 Then接下来的货量，货量预计；With Wb.ActiveSheet 'Wb.Sheets(stockName(0))
'          Wb.Sheets(stockName(0)).Activate '当前工作表激活lr = .Cells(Rows.Count, "A").End(xlUp).Row '获取最后一行Set rngs = .Range("D1:D" & lr) '确认列For Each Rng In rngs'            Debug.Print Rng.ValueIf Rng.Value Like Dtransport Thenk = k + 1 '记录条目Debug.Print "条目" & k & "：" & Rng.Value & ActiveSheet.Name '输出当前工作表内容last_row = ThisWorkbook.Sheets("运输").Cells(Rows.Count, 1).End(xlUp).Row '最后一行位置'                       n = n + 1 '判断行数ThisWorkbook.Sheets("运输").Cells(last_row, "a").Resize(2, 147) = Rng.EntireRow.Range("a1:EQ1").Value  '获取对应条目内容ThisWorkbook.Sheets("运输").Cells(last_row, "ER").Value = ActiveSheet.Name  '写入表格名称End IfNextEnd WithThisWorkbook.Sheets("运输").Range("A:L").RowHeight = 15 '行高
'         ThisWorkbook.Sheets("运输").Range("C:C").ColumnWidth = 35 '列宽'NextWb.Close False '关闭工作簿

excel中VBA获取指定单元格内容相关推荐

python获取指定单元格内容_python读取excel表格指定位置的内容
今天是第一次写博客,对之前学以致用的内容做一些总结,以备日后忘了或者可以给别人提供一些帮助.话不多说,开始写内容. python读取excel表格指定位置的内容需求:现在有一个excel表格,里面有 ...
Excel 中拼接多个单元格内容的方法
第一步,打开需要拼接多个单元格内容的表格第二步,在E2单元格输入[=A2&B2&C2&D2]即可得到拼接后的结果第三步,单击E2单元格右下角并往下拉,向下引用,单元格则自动 ...
excel 用VBA将所有单元格内容全部转换为文本
Sub 将所有列全部转换为文本() t=timer 'Cells(Rows.Count, 1).End(xlUp).Row 获取第一列最后一个非空单元格的行号 s = Cells(1, Columns ...
python查找excel中内容_python excel表格数据-python 如何读取 excel 指定单元格内容
python 怎么从excel中读取数据 VLOOKUP是函数,给定一个查找的目标,它就能从指定的查找中查找返回想找到的值.它的基本语法为: VLOOKUP(查找目标,查找范围,返回值的列数,精确OR ...
VBA实现为Excel中自定义名称的单元格添加批注
一.本地office中通过创建宏实现此需求 1.打开一个Excel文件,在需要插入批注的单元格右击-定义名称(myTable1).点击菜单栏-视图-宏-查看宏-输入宏名-创建宏 2.进入VBA编辑 ...
POI 3.17版本 XSSF 获取指定单元格excel合并列数
POI 3.17版本 XSSF 获取指定单元格excel合并列数 /*** @param cell * @param sheet*/public static int getMergeColumnNu ...
Excel中如何批量合并单元格
Excel中如何批量合并单元格方法/步骤 1.1 如图所示是我们的演示数据与预期达到的效果. 1.首先,选中数据. 2.依次点击[数据]-[分类汇总] 3.弹出如下对话框,将[分类字段]设置为&qu ...
html拆分单元格成两列,在excel中怎样把一个单元格拆分成两个单元格
excel表格中如何拆分带括号的单元格比如说我有一个表格单元格内容是 :张三李四(000001) 如何将括号内的选中需要拆分的单元格,Ctrl +F把单元格里面的括号或者书名号换成逗号,然后在数据选项 ...
如何在EXCEL中查找多个单元格中的多个关键字，多个单元格满足多个条件的行的绿色在线工具
Excel查找,偶尔有情况遇到要在Excel中查找多个单元格的多个关键字(或包含或相等),或多个单元格或列满足多个的条件的行,Excel本身的支撑没有那么灵活.本身我们又对代码不熟悉,有一个方便性的工 ...

excel中VBA获取指定单元格内容

excel中VBA获取指定单元格内容相关推荐

最新文章

热门文章