- Dim na%, nb%, nc%
- For i = 2 To 20
- na = Cells(i, 11)
- nb = Cells(i, 11).Offset(-1, 0)
- nc = Cells(i, 11).Offset(0, 1)
- If na <> "" Then
- na = nb
- End If
- If na = "" Then
- na = nc
- End If
- Next
- End If
½Æ»s¥N½X ¨Ï¥Î«áµL¥ô¦ó¿ù»~°T®§¤]¨S¦³¥ô¦ó¤ÏÀ³¡A¤£ª¾¹D¬O¤£¬Ocells¤£¯à¬O¤@ÓÅܼơAÁÙ¬O¤Uªº«ü¥O¦³»~¡AÁÂÁÂÆ[¬Ý |