Question

VBA光标定位

A-Q回车光标横向跑当b-q列输入值中含有字幕“A”或"B"或"C"时，将此单元格内的值剪切到下一行首列

Answer 1

意思：
B:Q列含有字母 A或B或C时，比如B2含有A，就将B2数据剪切到A3?

追问

是的，是的！

追答

Sub 剪切()
Dim I%, K%
For I = 2 To 10 '从第2开始循环到10行
For K = 2 To 17 '从B列开始到Q列
X = Range("A65536").End(xlUp).Row
If Len(Cells(I, K)) > 15 Then
Cells(I, K).Cut Cells(X + 1, "a")
End If
Next
Next
End Sub
意思：将每一行位数>15的数据(无论有多少个)，都依次剪切排列到A列

追问

追答

Private Sub Worksheet_SelectionChange(ByVal Target As Range) 'Sub 剪切()
Dim I%, K%
For I = 2 To 10 '从第2开始循环到10行
For K = 2 To 17 '从B列开始到Q列
X = Range("A65536").End(xlUp).Row
If Len(Cells(I, K)) > 15 Then
Cells(I, K).Cut Cells(X + 1, "a")
End If
Next
Next
End Sub