引用问题4

wjw3604309

新年好!又想到一个问题,烦请高手再想想,能用函数实现吗

Ruby_du

  ，不会啊，需要学习啊！

蝶·舞

公式办不到，因为函数识别不了下划线

hrpotter

函数不能识别下划线哦，只能vba

1. Sub 查找()
   
2.     Dim i, j, k As Integer
   
3.     For i = 1 To Range("a65536").End(xlUp).Row
   
4.         For j = 1 To 5
   
5.             If Cells(i, j).Font.Underline = xlUnderlineStyleSingle Then
   
6.                 k = k + 1
   
7.                 Range("e" & i).Offset(0, k) = Cells(i, j)
   
8.             End If
   
9.         Next
   
10.         k = 0
    
11.     Next
    
12. End Sub

复制代码

zmj421

很深的问题，菜鸟路过