【建议收藏】Excel常用代码，学会再也不用担心不会做表格！

老师们在日常工作中常常要使用到Excel，其中如果大家能够学会使用excel中的各种高阶代码，就能够使自己的工作更加便利，来看看有哪些代码，是可以运用到自己的日常工作中的？
 
 

合并某列中相同单元格

Sub 合并相同用单元格()
 Dim l%, i%
 Application.DisplayAlerts = False
 k% = InputBox("请输入合并单元格所在列")
 l = [A65536].End(xlUp).Row
 For i = l To 2 Step -1
 If Cells(i, k) = Cells(i - 1, k) Then
 Range(Cells(i - 1, k), Cells(i, k)).Merge
 End If
 Next
 Application.DisplayAlerts = True
 End Sub

excel按固定的列数转置

第一行放入数据，然后第二行之后的公式如下（右拉下拉填充）：

=INDEX($1:$1,1,COLUMN(A1)+(ROW(A1)-1)*10)　　
 其中COLUMN和ROW函数用来作为计算参考

可以实现每行10列的转置效果

Excel中的自定义ConTxt函数合并同类项

Public Function ConTxt(ParamArray args() As Variant) As Variant
 Dim tmptext As Variant, i As Variant, cellv As Variant
 Dim cell As Range
 tmptext = ""
 For i = 0 To UBound(args)
 If Not IsMissing(args(i)) Then
 Select Case TypeName(args(i))
 Case "Range"
 For Each cell In args(i)
 tmptext = tmptext & cell
 Next cell
 Case "Variant()"
 For Each cellv In args(i)
 tmptext = tmptext & cellv
 Next cellv
 Case Else
 tmptext = tmptext & args(i)
 End Select
 End If
 Next i
 ConTxt = tmptext
 End Function

今天的代码分享就到这里啦，老师们如果还有想要知道的代码功能可以在评论区留言哦！