一段代码谁知道什么意思

谁知道什么意思"/>

一段代码谁知道什么意思

Sub check_output()
Dim row As Integer, c As IntegerDim arr(1 To 100), arr1(1 To 100)Dim regDim wb As WorkbookIf Range(“c1”) <> “使用” Then MsgBox “未使用！” Exit SubEnd Ifrow = Range(“A1”).CurrentRegion.Rows.Countreg = Range(“A1”).CurrentRegionFor i = LBound(reg) + 2 To UBound(reg) For j = 2 To UBound(reg, 2) If reg(i, j) <> “” Then If Len(reg(i, j)) <> 4 Then MsgBox GetColName(j) & i & “内容长度不4！” Exit Sub End If End If NextNextFor i = LBound(reg) + 2 To UBound(reg) rn = 0 mzchongfu = “” rn = Application.WorksheetFunction.CountIfs(Range(Cells(i, “b”), Cells(row, “b”)), Cells(i, “b”)) If rn > 1 Then mzchongfu = “B” & i For ii = i + 1 To UBound(reg) If reg(ii, 2) = Cells(i, “b”) Then mzchongfu = mzchongfu & “/” & “B” & ii End If Next MsgBox mzchongfu & “内容重复!” Exit Sub End If For j = 3 To UBound(reg, 2) cn = 0 ywchongfu = “” cn = Application.WorksheetFunction.CountIfs(Range(Cells(i, “c”), Cells(i, UBound(reg, 2))), reg(i, j)) If cn > 1 Then ywchongfu = GetColName(j) & i For jj = j + 1 To UBound(reg, 2) If reg(i, jj) = reg(i, j) Then ywchongfu = ywchongfu & “/” & GetColName(jj) & i End If Next MsgBox ywchongfu & “内容重复!” Exit Sub End If NextNextApplication.ScreenUpdating = FalseSet wb = Workbooks.Addt = 1For i = LBound(reg) + 2 To UBound(reg) For j = 3 To UBound(reg, 2) If reg(i, j) <> “” Then wb.Sheets(1).Cells(t, “a”) = “#thisis 行（” & i & “）列（” & GetColName(j) & “）” wb.Sheets(1).Cells(t + 1, “a”) = reg(1, 5) & " " & reg(i, 2) & reg(i, j) & “=” & reg(1, 7) wb.Sheets(1).Cells(t + 2, “a”) = reg(1, 5) & " " & reg(i, 2) & reg(i, j) t = t + 4 End If NextNextwb.SaveAs ThisWorkbook.Path & “\结果” & Format(Now, “yyyymmddhhmmss”) & “.txt”, FileFormat:=xlText, CreateBackup:=Falsewb.Close FalseApplication.ScreenUpdating = True End SubFunction GetColName(ByVal y As Integer) As StringDim z As IntegerDim i As IntegerDim n(25) As StringFor i = 0 To 25 n(i) = Chr(65 + i)NextIf y <= 26 Then GetColName = n(y - 1) Exit FunctionEnd Ifz = y \ 26If y Mod 26 = 0 Then GetColName = n(z - 2)Else GetColName = n(z - 1)End Ifz = y Mod 26If z > 0 Then GetColName = GetColName & n(z - 1)Else GetColName = GetColName & "Z"End If End Function
outlook2016,SAP Logon Pad,WinSCP,WinMerge,powershell,SQL Server Management Studio,JP1/Automactic Job Management System 3-View,Chrome,Gitlab,INTARFRM, リモートデスクトップ接続
DOTシステム