优化显示一行所有列的代码！

笑九方

2013.06.25 扬州华泰人事档案.rar (23.74 KB, 下载次数: 1)

2018-3-13 20:24 上传

点击文件名下载附件

效果如下图，点击20后 会出现一个窗口  左侧为标题  右侧为第20行的相应数据



现在情况是  这代码放到别的sheet后 就套用不上了 该如何优化变成通用的？  

1. Private Sub Worksheet_SelectionChange(ByVal Target As Range)
   
2. Dim str, i, s, s1
   
3. If Application.CountA(Target) = 0 Or Target.Rows.Count > 1 Then Exit Sub
   
4. If Target.Count <> Columns.Count Or Target.Row < 2 Then Exit Sub
   
5. If Target.Count = Columns.Count Then
   
6.     For i = 1 To [a1].End(2).Column
   
7.         s = Application.Clean(Replace(Replace(Cells(1, i), " ", ""), "　", ""))
   
8.         s1 = String(7 - Len(s), "　")
   
9.         str = str & Chr(10) & s & s1 & Target(i).MergeArea(1)
   
10.     Next
    
11. End If
    
12. MsgBox str
    
13. End Sub
    

复制代码