2023-01-18 14:34来源:m.sf1369.com作者:宇宇
1、电脑打开Excel表格。
2、电脑打开Excel表格后,先选中第一个单元格。
3、按住shift键,再点击一下7列8行所对应的单元格,就可以选中。
4、然后点击工具栏中的所有框线。
5、点击所有框线后,就可以把单元格设置好了。
直接先在Excel中选中要导出的那几行几列数据,然后选择另存为即可。
举例说明。
第一步:编写宏代码。代码如下:
Sub 当前行号()
Dim a As Integer
a = ActiveCell.Row
MsgBox 当前行号= & str(a)
End Sub
第二步:运行宏“当前行号”。如图:
运行结果如图:
确实很简单,不用宏,也不用发你右键,你自己动手,几秒钟搞定:
假设表1叫Sheet1,在表2的第一个B2(或者你要在B10也可以)输入
=COUNTIF(OFFSET(Sheet1!$B$1:$G$10,ROW(A1)-1,0),B$1)
回车后再选中B2,鼠标移到其右下角,按着那个“+”向右拖到AE2,接着按着AE2右下角的“+”向下拖到第991行。
完成。
循环呀,就是把F2写到E2、F3到E3、。。。。这样吧?
'在工作薄的最前面插入一工作表
'在新表的A1、B1分别输入:表名、行数
'选定A1,运行下面的宏
Public Sub hang()
For i = 2 To Sheets.Count
r = Sheets(i).Cells.SpecialCells(xlCellTypeLastCell).Row
n = Sheets(i).Name
ActiveCell.Offset(i, 0) = n
ActiveCell.Offset(i, 1) = r
Next
End Sub
Sub 行号()
Dim x As Long
x = InputBox(请输入要查找的数字:)
For r = 1 To [A65536].End(xlUp).Row
If Cells(r, 1) = x Then n = n & , & r
Next r
MsgBox Mid(n, 2)
End Sub