满足条件整列复制

linda80200

满足条件整列复制.7z (7.06 KB, 下载次数: 133)

2017-3-17 19:51 上传

点击文件名下载附件

详见附件，求前辈指点，谢谢

zax010

附件损坏，打不开。

lss001

Sub 宏1() '赋值
For i = 2 To 7
x = Cells(Rows.Count, 5).End(xlUp).Row
If Mid(Cells(1, i), 6, 1) = "4" Then
Range(Cells(1, 9), Cells(x, 9)) = Range(Cells(1, i), Cells(x, i)).Value
End If
Next
End Sub


Sub 宏2() '复制
For i = 2 To 7
x = Cells(Rows.Count, 5).End(xlUp).Row
If Mid(Cells(1, i), 6, 1) = "4" Then
    Range(Cells(1, i), Cells(x, i)).Select
    Selection.Copy
    Range("I1").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Range("J1").Select
End Sub
'任选一个都可以！！！

lsc900707

Sub lsc()
     For j = 2 To [iv1].End(xlToLeft).Column
          If Month(Cells(1,j)) = 4 Then Columns(j).Copy [i1]
     Next
End Sub

linda80200

lsc900707 发表于 2017-3-18 00:31
Sub lsc()
     For j = 2 To .End(xlToLeft).Column
          If Month(Cells(1,j)) = 4 Then Columns( ...

代码简洁好用，谢谢！！

linda80200

lsc900707 发表于 2017-3-18 00:31
Sub lsc()
     For j = 2 To .End(xlToLeft).Column
          If Month(Cells(1,j)) = 4 Then Columns( ...

老师您好：能再请教一个问题吗？
现在想将等于4，5，6的三列都拷贝至以i1起始的列中，下述代码应该如何修改呢，再次感谢～～
For j = 2 To .End(xlToLeft).Column
           If Month(Cells(1,j)) = 4 or Month(Cells(1,j)) = 5 or Month(Cells(1,j)) = 6 then Columns(j).Copy [i1]

lsc900707

linda80200 发表于 2017-3-19 23:51
老师您好：能再请教一个问题吗？
现在想将等于4，5，6的三列都拷贝至以i1起始的列中，下述代码应该如何 ...

至少可以这样子吧：
Sub lsc()
   For j = 2 To [iv1].End(xlToLeft).Column
       If Month(Cells(1, j)) = 4 Then Columns(j).Copy [i1]
       If Month(Cells(1, j)) = 5 Then Columns(j).Copy [j1]
       If Month(Cells(1, j)) = 6 Then Columns(j).Copy [k1]
   Next
End Sub

linda80200

lsc900707 发表于 2017-3-20 00:59
至少可以这样子吧：
Sub lsc()
   For j = 2 To .End(xlToLeft).Column

OK的 谢谢～～

linda80200

lsc900707 发表于 2017-3-20 00:59
至少可以这样子吧：
Sub lsc()
   For j = 2 To .End(xlToLeft).Column

老师您好，能再请教您一个问题吗，
我发现表头有重复的值，希望每次只要查找到符合要求的值就停止查找，接着进行下一个if判断，能麻烦再看一下吗。谢谢

lsc900707

linda80200 发表于 2017-3-22 21:46
老师您好，能再请教您一个问题吗，
我发现表头有重复的值，希望每次只要查找到符合要求的值就停止查找， ...

可是根据你的模拟数据不会呀，你的实际数据不一样？