Excel 2010 كتابة السلسلة إلى الخلية [مكررة]

Question

هذا السؤال بالفعل الإجابات هنا:

كتابة سلسلة إلى الخلايا في excel (4 إجابات)

مغلقة قبل 5 سنوات.

وأود أن تعطي وصفا كاملا ولكن كل شيء ذات الصلة قيل في هذه المسألة من قبل عامين أنه ذهب تماما دون حل:

كتابة سلسلة إلى الخلايا في excel

البرنامج بسيطة كما يمكن أن يكون:

`Sub separate()
Dim stri As String
Dim i As Long
stri = Sheets("HEXDUMP").Cells(1, 5).Text
For i = 0 To (Len(stri) / 4)
    Sheets("HEXDUMP").Cells(i, 1).Value = Mid(stri, ((i * 2) + 1), 2)
    Sheets("HEXDUMP").Cells(i, 2).Value = Mid(stri, ((i * 2) + 3), 2)
Next i
End Sub`

كل ما أريده هو أن تأخذ سلسلة وكسر في الخلايا من حرفين لكل منهما.بالطبع كل شيء يعمل تماما إلا أنه لن يكتب إلى الخلية بغض النظر عن ما يمكنك القيام به.حاولت unprotecting حاولت .نص حاولت صنع ورقة جديدة إعادة تشغيل سمها ما شئت.انها علة في excel و كل ما أريده في هذه المرحلة هو الحل.

Answer 1

لديك خطأ في التعليمات البرمجية الخاصة بك.

بالنسبة i = 0, أيالتكرار الأول من حلقة البرمجية التالية سوف تعطي خطأ:

... .Cells(i, 1) ...
... .Cells(i, 2) ...

كما لا يوجد صف 0.تغييره إلى:

... .Cells(i + 1, 1) ...
... .Cells(i + 1, 2) ...

و أنه سوف يعمل.غير متأكد بالضبط ما تريد ، ولكن على الأقل أنها لن تعطي خطأ.