数组公式
=INDEX(三角网原始数据!A:A,SMALL(IF(ISNUMBER(FIND("编号",三角网原始数据!$A$1:$A$100)),ROW(三角网原始数据!$A$1:$A$100),65536),ROW(A1)))&""
同时按CTRL SHFIT 回车键
出现结果,下拉公式
第3列同理
VBA的要依次循环包含了 编号或 挖方的数据
或设置 步长
复制到 sheet1表
Sub 编号()
Dim i, n
n = 2
For i = 1 To Sheets("三角网原始数据").Range("a65536").End(xlUp).Row Step 6
n = n + 1
Cells(n, "a") = Sheets("三角网原始数据").Cells(i, "A")
Cells(n, "C") = Sheets("三角网原始数据").Cells(i + 4, "A")
Next
End Sub
A3=RIGHT(INDEX(三角网原始数据!A:A,SMALL(IF(ISNUMBER(FIND("编号",三角网原始数据!$A$1:$A$100)),ROW(三角网原始数据!$A$1:$A$100),65536),ROW(A1)))&"",LEN(INDEX(三角网原始数据!A:A,SMALL(IF(ISNUMBER(FIND("编号",三角网原始数据!$A$1:$A$100)),ROW(三角网原始数据!$A$1:$A$100),65536),ROW(A1)))&"")-3)
C3=MID(INDEX(三角网原始数据!A:A,SMALL(IF(ISNUMBER(FIND("挖方",三角网原始数据!$A$1:$A$100)),ROW(三角网原始数据!$A$1:$A$100),65536),ROW(A1)))&"",4,FIND("填方",INDEX(三角网原始数据!A:A,SMALL(IF(ISNUMBER(FIND("挖方",三角网原始数据!$A$1:$A$100)),ROW(三角网原始数据!$A$1:$A$100),65536),ROW(A1)))&"")-5)
数组公式
方法一如果数据在A列,A1是第一个,在第一行的空白单元格中输入下面的公式
=IF(COUNTIF(A:A,A1)>1,1,2)
上面的公式是只要是重复的,这个公式的值就为1,2的就不是重复的。
你再用自动筛选,选出来有2的,复制到表2.
方法二
用高级筛选
菜单=数据--筛选--高级筛选--将结果复制到其它位置
列表区域$A:$A
复制到Sheet2!$B:$B
勾,选择不重复记录。
通过VBA将一个EXCEL单元格的内容读取到另一个单元格的 *** 作步骤如下:
1,在vba中创建一个录制界面,设置输入按钮,设置输入按钮代码实现输入功能,双击输入按钮,输入代码进入代码窗口。
2,将需要在表单中输入的文本框连接到指定的单元格,继续输入代码中显示的代码,并使用文本文本框的值链接到我们要输入的工作表单元格。
3,设置输入单元格中显示的内容的文本格式,大小,字体,对齐方式等。使用字体设置文本大小并根据输入自动调整单元格宽度。
4,设置取消按钮代码,隐藏表格,当我们按下取消按钮时,它会隐藏输入表格,然后创建一个表格设置为主界面,将工作表名称设置为主界面。
5,在开发工具中插入命令按钮,将命令按钮属性中的标题更改为要显示的文本,然后输入代码将表单调用到按钮,如图所示,效果是单击按钮时您可以调用创建的输入界面。
6,此时,当我们单击登录按钮时,将d出设置表单。然后我们在表单的文本框中输入相应的内容,内容将根据我们设置的位置显示在相应的单元格中。
欢迎分享,转载请注明来源:内存溢出
评论列表(0条)