请问这种当某当单元格中包含字符，则显示XX的宏实现呢？

o0star0o

如图，当区域内单元格包含X或*，则显示其所在列1中内容，加一些其他文字，附件奉上 当某单元格包含，则显示.zip (8.72 KB, 下载次数: 4)

2018-8-28 19:40 上传

点击文件名下载附件

注：这个“状态1”，是复制K1单元格中的内容，到时候会是其他的

liulang0808

1. Sub 按钮1_Click()
   
2.     Application.ScreenUpdating = False
   
3.     arr = Application.Intersect(ActiveSheet.UsedRange, Columns("j:w"))
   
4.     For j = 2 To UBound(arr)
   
5.         If Len(arr(j, 1)) > 0 Then
   
6.             If Len(arr(j, 2)) <> 0 Then '
   
7.                 str1 = ""
   
8.                 For i = 2 To 10
   
9.                     If Len(arr(j, i)) > 0 And InStr("*X", arr(j, i)) > 0 Then
   
10.                         If Len(str1) = 0 Then
    
11.                             str1 = """" & arr(1, i) & """"
    
12.                         Else
    
13.                             str1 = str1 & "和""" & arr(1, i) & """" & arr(1, i)
    
14.                         End If
    
15.                     End If
    
16.                 Next i
    
17.                 If Len(str1) = 0 Then
    
18.                     arr(j, UBound(arr, 2)) = "ok"
    
19.                 Else
    
20.                     arr(j, UBound(arr, 2)) = "[停留在" & str1 & "]"
    
21.                 End If
    
22.             End If
    
23.         End If
    
24.     Next j
    
25.     Application.Intersect(ActiveSheet.UsedRange, Columns("j:w")) = arr
    
26.     Application.ScreenUpdating = True
    
27. End Sub
    

复制代码

liulang0808

附件内容供参考

o0star0o

liulang0808 发表于 2018-8-28 20:52

谢谢回复，代码简洁可以用，但有点看不懂，不好修改，请问下，我想把生成的数据不放W列，放在H列，怎么修改下呢？

o0star0o

liulang0808 发表于 2018-8-28 20:52

另外只在K到S列中做判断，其他列中有数据

o0star0o

liulang0808 发表于 2018-8-28 20:52
附件内容供参考

求回复，一直在等您~