如何用宏查找第一行关键字，选中该列剪切到指定位置

gpaixx000

各位大神：
       我想在第一行中查找带有“慕斯”关键字的单元格，然后选中该列，再剪切到I列右侧。第一行中带有慕斯关键字的单元格有2个（格式见附件）

       S.O.S！

约定的童话

看下是这个效果吗？

Jaofuan

Sub jaofuan()
E = Cells(1, Columns.Count).End(xlToLeft).Column
Y = 1
For T = 10 To E
If Cells(1, T) Like "*慕斯*" Then
  R = Cells(Rows.Count, T).End(xlUp).Row
  T = Cells(1, T).Column: Columns(T).Select
Selection.Cut
Columns("J").Select: Selection.Insert Shift:=xlToRight
End If
Next
End Sub
不知道这样理解对不对

gpaixx000

Jaofuan 发表于 2019-5-15 15:49
Sub jaofuan()
E = Cells(1, Columns.Count).End(xlToLeft).Column
Y = 1

完美~谢谢~

gpaixx000

约定的童话 发表于 2019-5-15 14:36
看下是这个效果吗？

效果是这样的，刚采用三楼意见，谢谢~