EXCEL 技术求教！
答案:2 悬赏:10 手机版
解决时间 2021-01-25 01:00
- 提问者网友：心如荒岛囚我终老
- 2021-01-24 08:07
EXCEL 技术求教！
最佳答案
- 五星知识达人网友：封刀令
- 2021-01-24 08:57
插入一列后，第3行的单元格输入
=ADDRESS(MATCH(I3,F:F,0),COLUMN($F$1))
=ADDRESS(MATCH(I3,F:F,0),COLUMN($F$1))
全部回答
- 1楼网友：青灯有味
- 2021-01-24 10:08
用宏来实现。公式不可能在本单元格操作。
Sub 宏1()
Dim i As Integer
Dim j As Integer
For j = 1 To Range("i65536").End(xlUp).Row
For i = 1 To Range("f65536").End(xlUp).Row
If Cells(j, 9) = Cells(i, 6) Then
Range("I" & j).Select
With Selection.Validation
.Delete
.Add Type:=xlValidateInputOnly, AlertStyle:=xlValidAlertStop, Operator _
:=xlBetween
.IgnoreBlank = True
.InCellDropdown = True
.InputTitle = ""
.ErrorTitle = ""
.InputMessage = "在" & i & "行"
.ErrorMessage = ""
.IMEMode = xlIMEModeNoControl
.ShowInput = True
.ShowError = True
End With
Else: End If
Next i
Next j
End Sub
Sub 宏1()
Dim i As Integer
Dim j As Integer
For j = 1 To Range("i65536").End(xlUp).Row
For i = 1 To Range("f65536").End(xlUp).Row
If Cells(j, 9) = Cells(i, 6) Then
Range("I" & j).Select
With Selection.Validation
.Delete
.Add Type:=xlValidateInputOnly, AlertStyle:=xlValidAlertStop, Operator _
:=xlBetween
.IgnoreBlank = True
.InCellDropdown = True
.InputTitle = ""
.ErrorTitle = ""
.InputMessage = "在" & i & "行"
.ErrorMessage = ""
.IMEMode = xlIMEModeNoControl
.ShowInput = True
.ShowError = True
End With
Else: End If
Next i
Next j
End Sub
我要举报
如以上问答信息为低俗、色情、不良、暴力、侵权、涉及违法等信息，可以点下面链接进行举报！
大家都在看
推荐资讯