vba怎么获取当前所在单元格位置

Sub a()
activecell.address
activecell.address()
activecell.address(0,0)
activecell.address(0,1)
activecell.address(1,0)
activecell.address(1,1)
Sub End

activecell.address'这是当前单元格地址
selection.offset(1, 0).select'这是向下跳1格
selection.offset(-1, 0).select'这是向上跳1格
selection.offset(0, -1).select'这是向左跳1格
selection.offset(0, 1).select'这是向右跳1格
具体应用可自行修改相应数值！！！

作用：输入（写入）出错时，修改前清除错误内容。

Sub 清除当前所在位置的单元格()
    k = ActiveCell.Address      '获取当前所在位置的单元格
        Range(k).ClearContents  '清除所选单元格
End Sub

vba课程表写入完成，输出问题：

1.多sheet保存

2.输出新表

3.建立数据库

通过SQL语句直接实现Excel与数据库的导入导出

网址：

https://blog.csdn.net/admin_maxin/article/details/79440025

构思：为了方便，将最后的下一页复制到上面，首页下面。

在vba中，换行（ALT+回车）

Sub yy()
    Dim i, k

    For i = 2 To 2
    For j = 2 To 2
    k = i + 1
    t = i + 2
    'Sheet4.Cells(i, k) = Sheet4.Cells(j, 5) & "*" & Sheet4.Cells(t, 6)
    Cells(i, j) = Mid(Cells(i, j), 1, 2) & Chr(10) & Mid(Cells(i, j), 3)
      Next j

  Next i
End Sub

Sub text()
 [b7] = [b5] & vbCrLf & [b6]
 End Sub

Sub aa()
 Dim i, a, b, c '定义变量
 For i = 1 To Range("A65536").End(xlUp).Row '循环A列所有有数据的区域
 c = Cells(i, 1).Value '取得当前单元格的值给c
 b = Left(c, InStr(c, " ")) '截取单元格中的日期给b
 a = Right(c, Len(c) - InStr(c, " ")) '截取单元格中的时间给c
 Cells(i, 1) = b & vbCrLf & a '在日期和时间加上换行符vbcrlf,再写入当前单元格
Next
End Sub

Sub test2()
 For i = 1 To 3
 SourceData = Sheet1.Cells(i, 1).Value
 datlen = Len(SourceData)
 a = InStr(SourceData, " ")
 If a > 0 Then
 Sheet1.Cells(i, 1).Value = Left(SourceData, a - 1) & Chr(10) & Right(SourceData, datlen - a)
End If
Next i
End Sub

vba，课程表，写入，

添加了清除页面（注意范围）。

思路：

1.还需加入输出（写入别的页或别的Excel）

华东座机（铁一）：

62822928

62822775

按条件删除条件以外的行的，3个写法

vba一对一（输入），按条件删除行

Sub 删除其它行_Click()
Application.ScreenUpdating = False

    For i = Range("C65536").End(xlUp).Row To 3 Step -1   '定义循环i到最底，从第3行开始

        If ComboBox1.Value = Cells(i, 3) And TextBox1.Value = Cells(i, 4) Then
       
        Else

            Rows(i).Delete

        End If
 
    Next
   
Application.ScreenUpdating = True

End Sub

     If ComboBox1.Value = Cells(i, 3) And TextBox1.Value = Cells(i, 4) Then
        Else

Rows(i).Delete
     End If

Next
End Sub