怎样通过VB实现多个EXCEL中特定行列的数据的提取

楼上的都不可使用

我来给个能用的。如果好用 希望楼主多给点分

你在桌面建立个新的excel 命名为 "汇总" (程序运行完可以改名）

并将你的多个excel 放在 D盘根目录下的 “提取”文件夹 ，即创建个文件夹

并命名为“提取”,注意 这些名字都是不带双引号的。

以上步骤做好 然后打开名为 汇总 的excel

依次点击键盘 alt+F11 alt+i m

把以下代码复制进去

Sub 汇总数据()

ApplicationScreenUpdating = False

p = "d:\提取\"

f = Dir(p & "xls")

Do While f <> ""

WorkbooksOpen p & f

r = r + 1

ActiveSheetRows(3)Copy

Workbooks("汇总xls")Sheets("sheet1")Activate

ActiveSheetRange("A" & r)Select

ActiveSheetPaste

ApplicationCutCopyMode = xlCut

Workbooks(f)Activate

ActiveWorkbookSaved = True

ActiveWindowClose

f = Dir

Loop

ApplicationScreenUpdating = True

End Sub

我这里使用的 excel 2003 如果是你用的2007

把代码中的

Workbooks("汇总xls")Sheets("sheet1")Activate

改为

Workbooks("汇总xlsx")Sheets("sheet1")Activate

f = Dir(p & "xls")

改为

f = Dir(p & "xlsx")

这里是复制的第3行

如过要复制别的行

把代码中的

ActiveSheetRows(3)Copy

3 改为你想要的行

然后 敲击 F5 点运行 就ok了

如果还有什么问题可以 百度hi 我 上班时间我都在

一般有两个方法，一是使用ActiveSheetUsedRange，这个表示所有已经使用的区域，一般可以赋值给数组完成所有数据的读取，也可以使用ActiveSheetUsedRangeRowsCount和ActiveSheetUsedRangeColumnsCount获得区域的行列数量。

另外，可以使用End获得某行（或者某列）最后一个数据，例如需要获得A列最后一个数据所有在行可以用：

ActivceSheetCells(ActivceSheetRowsCount,1)End(XlUp)Row

rownum = Val(InputBox("行"))

columnnum = Val(InputBox("列"))

Cells(rownum, columnnum) = WorksheetFunctionRandBetween(1, 99)

Cells(rownum, columnnum)NumberFormat = "00"

Sub a()

rw = Cells(RowsCount, 6)End(xlUp)Row

For i = 1 To rw

If Cells(i, 6) = "数量" Then

Cells(i + 1, 6) = "单价："

Cells(i + 1, 7) = 60

End If

Next

End Sub

把代码复制到对应工作表里去。。在工作表里加一个按钮指定这个宏

1、打开数据表。

2、选中一个单元格，同时按键盘上的Ctrl+↓。

3、选中的单元格迅速就到了最后一行，同时按键盘上的Ctrl+↑。

4、选中一个单元格回到了首行，同时按键盘上的Ctrl+→。

5、选中一个单元格迅速到了最后一列，同时按键盘上的Ctrl+←。

6、又可以迅速回到首列。

7、还可以将鼠标移动到单元格下边框上，鼠标变成上下左右箭头时，双击。

8、选中单元格迅速跳到最后一行，将鼠标移动到单元格上边框上，鼠标变成上下左右箭头时，双击。

9、选中单元格迅速回到首列。

在Excel中取得某列最后一行的VBA代码怎么写（各列行数不同）？

A列最后一行

LastRow = Cells(RowsCount, 1)End(xlUp)Row

B列最后一行

LastRow = Cells(RowsCount, 2)End(xlUp)Row

一 基本概念

Microsoft Excel是微软公司的办公软件Microsoft office的组件之一，是由Microsoft为Windows和Apple Macintosh *** 作系统的电脑而编写和运行的一款试算表软件。Excel 是微软办公套装软件的一个重要的组成部分，它可以进行各种数据的处理、统计分析和辅助决策 *** 作，广泛地应用于管理、统计财经、金融等众多领域。

二 软件延伸

目前许多软件厂商借助Excel的友好界面和强大的数据处理功能开始研究将其以更简单的方式应用到企业管理和流程控制中，比如ESSAP（Excel&SQL平台）就是很好的应用Excel和数据库软件MS　SQL相结合应用到企业管理和各行各业数据处理的例子。

ESSAP是一个用于构建信息系统的设计与运行平台。其以Excel为 *** 作界面，结合大型数据库MS SQL与工作流技术，用户只要运用自己已经掌握的Excel *** 作技术（不需依靠专业IT人员），就可以设计满足自己需要（管理意图）的各种信息管理系统。另外，系统设计完成并投入使用以后，并不意味着系统就从此不能改变，而是还可以根据管理的需要进行不断的优化与扩展功能，真正做到了“持续优化，因需而变”，使到你自己设计的系统永不落伍。

excel里面怎么求得某列中某个数字出现的最后一行的行数？用函数。

用数组函数

=MAX(IF(A1:A6=38,ROW(A1:A6),0))

输入完成后按 ctrl+shift+enter 结束

Excel VBA 找到某一行的最后一个非空单元格 用VBA代码怎么写阿 本人VBA小白

iCol=Cells(1,colunmscount)end(xltoleft)column

这是第1行的

vba 获取excel表中某列（列号假设为A）的行数，求代码

r= range("A65536")end(xlup)row

excel VBA想让某行的A到Z列清空，代码怎么写？

if cells(i,5)value="" then

range(cells(i,"a"),cells(i,"z")clear

end if

如何取得datagridview中最后一行某列的数据

1、你这是Winform还是WebForm？

2、感觉你是用错了事件，而非用错了代码。你能否说下你为啥要用KEYPRESS事件？

一般我都用别的事件，比如RowUpdated之类的。

3、还有一种方法是使用支持INotifyChanged接口的对象，然后在对象的PropertyChanged事件里面写代码。

4、所以关键还是你想作啥

excel2007 VBA编程怎么取得某一行的最大有效列数？

假如是i行：

cells(i,columnscount)end(xltoletf)column

求老师指教：vba怎么统计excel某一行最后一列的列数？

不用循环，假设是第15行，最后一列是：

Cells(15, ColumnsCount)End(xlToLeft)Column

Excel 如何通过VBA找出最后一行数据所在的列

一般有两个方法，一是使用ActiveSheetUsedRange，这个表示所有已经使用的区域，一般可以赋值给数组完成所有数据的读取，也可以使用ActiveSheetUsedRangeRowsCount和ActiveSheetUsedRangeColumnsCount获得区域的行列数量。

另外，可以使用End获得某行（或者某列）最后一个数据，例如需要获得A列最后一个数据所有在行可以用：

ActivceSheetCells(ActivceSheetRowsCount,1)End(XlUp)Row

以上就是关于怎样通过VB实现多个EXCEL中特定行列的数据的提取全部的内容，包括:怎样通过VB实现多个EXCEL中特定行列的数据的提取、excel如何通过vba找出最后一行数据所在的列、VBA用两个Inputbox输出行列随机数等相关内容解答，如果想了解更多相关内容，可以关注我们，你们的支持是我们更新的动力！