Question

EXCEL 中当sheet1的14行有数值1 就把sheet1 15行整行内容复制到sheet2里！！！急急

20025353234383949820025410202133404434200255102026 28354813200256 14192336 4446 7200257924252736 3841200258713142029322820025911222428293820200260 111293336 4437200261 912253143445200262 156 313946 44200263 1232532434430
200314期1416 1920404924200315期11316 24414835200316期13192328424515200317期1491221253436 200318期9323338424443200319期15203540454830200320期10202231353917复

Answer 1

这个用公式好像没这公式哦，用VBA可以解决！按ALT+F11，然后复制粘贴以下代码
Private Sub Worksheet_SelectionChange(ByVal Target As Range) '选择区发行变化时就运行
For I = 1 To Sheet1.Cells(14, Columns.Count).End(xlToLeft).Column '循环14行
If Sheet1.Cells(14, I) = 1 Then Sheet1.Rows(15).Copy Destination:=Sheet2.Rows(Sheet2.UsedRange.Rows.Count + 1) '如果存在1就复制15到shee2最后一行！
Next
End Sub
因为不知道你要复制到什么位置，我给出的是粘贴到sheet2的最后一行！

追问

我不懂,你的邮箱,我把表发给你,好吗.谢了

追答

changhenxue@qq.com

Answer 2

VBA行吗？行就找我吧
Private Sub CommandButton1_Click()

x = Sheets(2).[A65536].End(xlUp).Row + 1

y1 = Sheets(1).Cells(14, 256).End(xlToLeft).Column

y2 = Sheets(1).Cells(15, 256).End(xlToLeft).Column

For i = 1 To y1
j = InStr(1, Cells(14, i), "1")
If j = "1" Then
For m = 1 To y2
Sheets(2).Cells(x, m) = Sheets(1).Cells(14, m)
Next m
Exit For
End If
Next i

End Sub

追问

不会,能解释,操作方法,或我发那个文件给你,你的邮箱?

追答

zjhchtfw@126.com 说明要求

追问

能用中文解释上面一下吗,我完全是个门外汉

追答

你录制一段宏，把我的代码去头去尾 替换掉 宏代码的去头去尾部分就行了

追问

你的个人博客做个视频,好吗,非常感谢了,我真的不懂

追答

发我邮箱吧，没有博客

Answer 3

你最好给个xls文件

Answer 4

能再说清楚点吗？表2的15行内容复制到哪里？你想怎么解决

追问

发个表给你,你的邮箱